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6.3.7 EXTENDED STATUS REGISTER 4 (XSTAT4) 


7.0 DIAGNOSTIC HISTORY 


1.0 GENERAL INFORMATION 


| 


THIS PROGRAM CAN BE USED AS A BASIC FUNCTION TEST, A DATA RELIABILITY 
TEST, OR A COMPATABILITY TEST. 


1.1.2 STRUCTURE OF PROGRAM 


THIS DIAGNOSTIC i. A SINGLE PROGRAM 
FROM THE STANDPOINT OF THE OIAGNOSTIC USER, BUT IT — A CONTROL 
MODULE RELEASED INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR 


1.1.3 MEMORY MAP 


Oo! ; 

‘ ‘ 

' VECTOR ! 

' ARE ‘ 

‘ ! 

BNE Seaencneienenis ‘ 

‘ ! 

' ' 

! STACK ‘ 

‘ ‘ 

2000 !-------------- ! 
' ‘ 

‘ ! 

! DIAGNOSTIC ! 
eS eee ' 
' ' 

' ' 

! DIAGNOSTIC ! 

t SUPERVISOR ! 
MOOD Punveccoece sizes ' 
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T7777 ------------- ee 


FREE MEMORY SPACE FOR WR/RD BFRS OR OTHER PUROSES 

IS ALLOCATED BY THE SUPERVISOR ON REQUEST OR — 
BY PROGRAMMER TO RESIDE BETWEEN THE DIAG AND T 
SUPERVISOR. 


1.1.4 DIAGNOSTIC INFORMATION 


1.1.4.1 


1.1.4.2 


1.1.4.3 


1.1.4.3. 


SCOPE 


THIS DIAGNOSTIC CAN TEST ONE CONTROLLER AND UP TO 2 DRIVES. THE 2 DRIVES 
ARE ASSIGNED LOGICAL DRIVE NUMBERS O - 1 BY THE DIAGNOSTIC. 


THERE ARE S TESTS IN THIS PROGRAM: 


TEST 1 - BASIC FUNCTIONS. 

TEST 2 - DATA RELIABILITY. 

TEST 3 - WRITE COMPATABILITY/WRITE ts ale 

TEST 4 - READ COMPATABILITY/READ UTILITY 

TEST 5S - RANDOM/OPERATOR SELECTED SEQUENCE UTILITY. 


ERROR RECOVERY 

ERROR RECOVERY IS PERFORMED ON READ, WRITE AND WRITE TAPE MARK FUNCTIONS 

UNLESS ERROR RECOVERY IS INHIBITED BY THE OPERATOR AT START UP TIME. 

THE READ FORWARD/READ REVERSE RETRY LIMIT IS 16 (8 IN THE SAME DIRECTI 

AND 8 IN THE OPPOSITE DIRECTION). FOR MORE DETAILED INFORMATION ON ERROR RECOVERY 

PROCEDURES, REFER TO SECTION 3.0 (ERROR REPORTING) OF THIS LISTING. 

WRITE ERROR RECOVERY 

THERE ARE 2 , SELECTABLE WRITE-ERROR-RECOVERY ALGORITHMS USED BY THIS DIAGNOSTIC: 
1. MEDIA/OPERATIONAL SELECTIVE ALGORITHM 
2. OPERATIONAL ALGORITHM 


BY DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO IDENTIFY 
MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES. 


TO SELECT THE Te ALGORITHM 
ANSWER TO SW (L) ? 
ANSWER iN! TO BAD TAPE SPOT DETECTION (L) ¥ ? 


IF ERROR RECOVERY IS INHIBITED, THE LATTER QUESTION IS NOT ASKED 
AND BOTH ALGORITHMS ARE BYPASSED. 


1 MEDIA/OPERATIONAL SELECTIVE WRITE-ERROR-RECOVERY ALGORITHM 
SCOPE 
THIS ALGORITHM IDENTIFIES MEDIA RELATED WRITE ERRORS FROM 
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OPERATIONAL ONES. 
ALGORITHM 


A WRITE RETRY SUBROUTINE IS CALLED BY THE vay ya ERROR SUBROUTINE WHICH IS 
ENTERED UPON DETECTIION OF A WRITE RECOVERABLE ERROR. 
ag Be RETRY SUBROUTINE ATTEMPTS TO REWRITE THe RECORD IN SAME SPOT ON TAPE 


TF ALL 4 REPEATS ARE GOOD, THE RECORD IS CONSIDERED AS — ANO 
A RECOVERABLE WRITE ERROR IS LOGGED AT THAT RECORD NUMBER 


IF ANY OF THE 4 REWRITE ATTEMPTS FAIL, THE ROUTINE WILL ERASE THE BAD RECORD, AND LO 


BAD SPOT AT THAT RECORD NUMBER, THE ROUTINE WILL THEN ATTEMPT TO 
WRITE THE RECORD AGAIN 3 INCHES FURTHER DOWN TAPE AND 
RETRY THIS SEQUENCE 4 TIMES, FOR UP TO 4 REPEATS EACH. 


IF A RECORD CANNOT BE WRITTEN WITHOUT RECOVERABLE ERRORS AFTER 4 RETRIES, 
THEN THE ROUTINE WILL ERASE THE RECORD AND REPORT RETRY FAILED ON BAD SPOT. 


THE RECOVERABLE ERROR SUBROUTINE THEN CONTINUES TO CALL THE WRITE 
RETRY SUBROUTINE, WHICH REISSUES THE GROUP OF 4 RETRIES, 
UNTIL THE RECORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN LOGGED . 


TWENTY (20) BAD SPOTS MAXIMUM ARE ALLOWED PER BOT TO EOT PASS OF TAPE. 

WHEN 20 BAD SPOTS HAVE BEEN LOGGED, WETHER ON THE SAME RECORD NUMBER OR NOT, 
TAPE IS CONSIDERED DEFECTIVE: A BAD TAPE OVERFLOW MESSAGE IS PRINTED 

AND THE UNIT IS REWOUND, THEN DROPPED. 


DURING THE RECOVERY PROCESS, IT IS NECESSARY TO PERFORM SEVERAL TAPE 
POSITIONING OPERATIONS: SPACE REVERSE, ERASE. IF A POSITION ERROR 
IS DETECTED IN THE STATUS WORD DURING THOSE OPERATIONS, THEN THE RECOVERY ATTEMPT IS 


AN APPROPRIATE UNRECOVERABLE ERROR MESSAGE IS PRINTED AND THE UNIT IS DROPPED. 


ALL BADLY WRITTEN RECORDS LOGGED WITH RECOVERABLE ERRORS ~_ ERASED 
UNTIL RECOVERED, INCLUDING THE RECORD AT THE 20TH BAD SPOT 
SO THAT ALL RECORDS LEFT ON TAPE ARE KNOWN GOOD WRITTEN RECORDS. 


BAD SPOTS ARE ERASED WITH ERASE GAPS FROM 3 TO 12 INCHES PER RETRY GROUP. 
UP TO 20 FEET OF ERASE GAP COULD RESULT WHEN RETRYING TO RECOVER 

A SINGLE RECORD. 

THAT LONG STRETCH OF BAD TAPE WOULD THEN BE LOGGED WITH 20 

BAD SPOTS AT SAME RECORD NUMBER AND THE TAPE CONSIDERED DEFECTIVE. 


BAD SPOTS REPORTS 

IF THE PRINTING OF RECOVERABLE ERRORS IS ENABLED, THE BAD SPOTS ON TAPE ARE 

IDENTIFIED AS THEY ARE DETECTED. SINCE THE BAD RECORDS ARE ERASED UNTIL RECOVERED, 
LY PRE T ORO NUMBER THAT IDENTIFIES at, 


NUMBE HE 
LENGTH OF ERASE GAPS CAN BE DETERMINED: APPROXIMATELY 3 INCHES PER RETRY. 


THE jth ab ore REPORT PRINTED AT THE END OF TEST 2 OR UPON A “PRINT” REQUEST, 
CONTAINS A SUMMARY OF THE BAD SPOTS LOGGED ON THE CURRENT PASS OF TAPE. 

IN THAT REPORT, ALL COUNTS ARE CUMULATIVE FROM PASS TO PASS, EXCEPT FOR 

THE NUMBER OF BAD SPOTS: IT RELATES TO A "BOT TO EOT TAPE PASS" ONLY. 

FOR THIS PURPOSE, A “TAPE PASS” IS A WRITE PASS FROM BOT TO EOT, OR FROM 
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BOT TO WHERE THE DIAGNOSTIC IS HALTED BEFORE REACHING EOT. 
DON'T CONFUSE THIS WITH A PASS SY THE SUPERVISOR WHICH IS DEFINED AS A RUN THROUGH A 


ON ALL UNITS SELECTED. THOSE PASSES ARE IDENTIFIED AS “PASS” AND “EOP”. 


THE NUMBER OF WRITE RETRIES, CUMULATIVE FROM PASS TO PASS, IS A GLOBAL 
COUNT OF HOW MANY TIMES THE GROUP OF 4 RETRIES HAS BEEN CALLED. 


THE NUMBER OF WRITE RECOVERABLE ERRORS EXCLUDES BAD TAPE SPOTS 
AND REFLECTS THE SPECIFICATIONS OF THE HARDWARE UNDER TEST. 


TO CLEAR CUMULATIVE COUNTS, ANSWER ‘Y’ TO: CLEAR COUNTERS (L) Y 
THE BAD TAPE SPOTS COUNT IS THEN CLEARED WHEN WRITING THE TAPE FROM’ BOT. 


IF TEST 2 IS HALTED, THEN RESTARTED OR CONTINUED, THE RECORD COUNT 
IS RESET TO ZERO AND THE BAD SPOT ID SHALL FOLLOW THAT RESET COUNT. 


SINCE ALL WRITTEN RECORDS ARE KNOWN GOOD, THE READ ERRORS CAN 
BE ATTRIBUTED TO TRANSIENT NOISE, TRANSIENT a gag MALFUNCTIONS, 
OR CONTAMINANTS ON TAPE AS OPPOSED TO TAPE DEFECTS 


THE SAME RECORDS MUST BE WRITTEN FROM TAPE PASS TO TAPE PASS 
FOR THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 


EXAMPLE OF A PRINT OUT FOR A BAD SPOT ON TAPE: 


CVTSE SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERROR 

WRT CMD FAILED - UNIT O- PASS: 1 RECORD: 6 
PREVIOUS CMD WAS WRT 

TSBA RFC TSSR §6TCC 

002406 000000 100210 4 


HS 


xSTO xXST1 xST2 XST3 XST4 
000002 100400 000000 000000 


SUSPECT BAD SPOT AFTER 4 RETRY, 3 REPEAT 
RETRY FAILED ON BAD SPOT. ..ERASED! 

SUSPECT BAD SPOT AFTER 1 RETRY, 1 REPEAT 
SUSPECT BAD SPOT AFTER 2 RETRY, 1 REPEAT 


CVTSE SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERROR 
WRT CMD FAILED - = O PASS: 1 RECORD:10210 


PREVIOUS CMD WAS 
CMDPKT TSBA RF TSSR TCC 


100205 002406 000000 100210 4 

026600 

000000 

004000 

xSTO xST1 xST2 xST3 XST4 
000000 000000 


000350 000002 100010 
RECOVERED ON RETRY # 1 
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| | 
390 tC 
391 DR>PRI 
392 
393 UNIT 0 PASS: 1 RECORD: 10210 
394 BYTES WRITTEN 0,272,279,691 
395 BYTES READ REV 0,301,123,654 
396 BYTES READ REV 0,301,120, 381 
397 WRT ROR ~~ ROF 
398 RECOVERABLE ERRORS 1 0 0 
399 UNRECOVERABLE ERRORS 0 0 0 
400 WRITE RETRIES z 
401 
| 402 2 BAD SPOTS THIS TAPE PASS PRECEDING RECORD ¢: 
403 
404 SPEC COND HARD FATAL COMPARE 
405 2 0 0 0 
406 DR> 
407 
408 THIS EXAMPLE SHOWS: 
| 409 RECORD 6 RECOVERED ON 2ND RETRY GROUP 
410 THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP BETWEEN RECORDS S AND 6 
411 RECORD 10210 RECOVERED ON 1ST RETRY OF 4 GOOD REPEATS 
412 3 WRITE GROUP RETRIES ATTEMPTED, RESULTING IN: 
413 1 RECOVERABLE WRT ERR FROM RECORD 10210 
aus 5 BAD SPOTS BETWEEN RECORDS S AND 6 
41 
| 4h? 
418 1.1.4.3.2 OPERATIONAL WRITE-ERROR-RECOVERY ALGORITHM 
| 420 WHEN THIS ALGORITHM IS SELECTED, THE TSVOS WRITE RETRY COMMAND 
421 IS ISSUED UP TO 16 TIMES OR UNTIL RECORD Is RECOVERED, ON 
422 A WRITE RECOVERABLE ERROR. THE WRITE RETRY COMMAND CONSISTS 
423 OF A SPACE REVERSE OVER THE BAD RECORD, THEN AN ERASE OF 3 INCHES 
424 OF TAPE AND REWRITE OF THE RECORD. THAT COMPOSITE COMMAND 
425 DOES NOT ALLOW THE DETECTECTION OF BAD SPOTS ON TAPE. 
426 THEREFORE NO BAD TAPE SPOTS STATUS IS PRINTED. 
428 IF RECORD CANNOT BE RECOVERED AFTER 16 WRITE RETRY COMMANDS, 
| 429 A RETRY LIMIT EXCEEDED IS FLAGGED AND UNIT IS DROPPED. 
431 
432 1.1.4.4 DIAGNOSTIC TIMING ADJUSTMENT 
| 434 A NUMBER OF SUPERVISOR TIMING DELAY MACROS, KNOWN AS WATCH DOG 
435 DELAYS, ARE CALLED BY THE DIAGNOSTIC TO WAIT FOR VARIOUS COMMANDS 
436 COMPLETION. THESE DELAYS ARE NOT CALIBRATED AND SIMPLY EXPANDS 
437 INTO AN INLINE NESTED LOOP PAIR. THE COUNT FOR THE OUTER LOOP 
438 COMES FROM THE VARIABLE ARGUMENT SUPPLIED BY THE DELAY CALLS. 
439 THE COUNT FOR THE INNER LOOP COMES FROM THE FIXED “HEADER” 
440 ELEMENT "LSDLY”. 
441 AS THE DIAGNOSTIC IS RUN ON DIFFERENT CPU'S, THESE DELAYS WILL 
| a2 VARY IN LENGTH WITH MEMORY SPEED. 
44 
! 
444 IF TIME-OUT OCCURS WHEN NO APPARENT MALFUNCTIONS IN THE TAPE 
445 UNIT IS EVIDENT, ALL TIMINGS OF THE DIAGNOSTIC MAY BE ADJUSTED 


440 TO MATCH MEMORY SPEED AND NOT RESULT IN TIME-OUTS, BY PATCHING 
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4a? THAT FIXED DELAY ELEMENT "LSDLY”. 
449 A PRESET COUNT OF 500 RESIDES AT “LSDLY” IN LOCATION 2116 OF THE 
450 “HEADER” SECTION. 


453 1.2 SYSTEM REQUIREMENTS 


460 PDP-11/23 PROCESSOR WITH 32K OR MORE OF MEMORY 
461 CONSOLE DEVICE (VTS2,LA36,ETC. ) 

462 PROGRAM LOAD DEVICE 

463 TSVOS/TSOS 


466 1.2.2 SOFTWARE REQUIREMENTS 


469 DIAGNOSTIC SUPERVISOR 


473 1.3 RELATED DOCUMENTS AND STANDARDS 


476 DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


478 1. CIQPMAO XXDP+ PROGRAMMER'S MANUAL; DOCUMENT NUMBER AC-S296A-AC 
DATE: 14 JULY 1960. 


481 2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSVO5-UG-001 
482 DATE: AUGUST 1962 


484 3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 
485 DATE: AUGUST 1962 


487 4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS-IN-001 
488 DATE: AUGUST 1962 
491 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


494 ORDER OF HOST CPU DIAGNOSTIC USAGE: 
496 1) CONTROL LOGIC PROGRAM - ALL TESTS. 
498 (VTSA,VTSB,VTSC,VTSD) 

| 300 2) OATA RELIABILITY PROGRAM: 


502 A) BASIC FUNCTION TEST. 
503 B) DATA RELIABILITY TEST. 


e 
~s 
0 
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505 
506 1.5 ASSUMPTIONS 
O00 fi er Se ye ao ere meee 
508 
509 THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK 
310 PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, MEMORY, ETC., 
S11 DO NOT FUNCTION PROPERLY. 
512 VTSA,VTSB,VTSC, AND VTSD HAVE ALL. SUCESSFULLY RUN WITHOUT ERRORS. 
1 
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2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XxXDP+ USER'S MANUAL (CHQUS). 


THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC ply — 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADO ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 
BY THE DIAGNOSTIC) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS 

ZFLAGS CLEAR ALL FLAGS 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 


OPERATOR COMMANDS 


THE TSVOS DIAGNOSTIC IS A POP-11/23 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED me THE 


POP-11 PROGRAMMER'S MANUAL “CIGPMAO XXDP+ PROGRAMMERS MANUAL, 
AC-S296A-AC. THE USER ENTRY IS IN QUOTES. 


ROOT THE DIAGNOSTIC XXDP MEDIA 


CHMDLBO XXDP+ DL MONITOR 28K 

BOOTED VIA UNIT O 

ENTER DATE (OD-MMM-YR): ”“ ENTER DATE OR JUST <CR> * 
RESTART ADDRESS: 153726 

50 HZ? N “ <CR> ” 

LSI? N ” Y<CR> 

THIS IS XXDP+. TYPE “H” OR “H/L” FOR DETAILS 


R VTSEAO 

VTSEAOBINORS LOADED 

DIAG. RUN-TIME SERVICES REV D. APR 79 
CVTSE-A-O 

TSVOS DATA RELIABILITY 

UNIT IS TSVOS 


SEQ 0011 


—— ee ee ES 
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SWITCHES 


THERE APE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED Br “DONDD™. 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7.8.9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT GE RUN. 
/PASS :DD000 EXECUTE DODOD PASSES (DD000 « 1 10 64000) 
/FLAGS :F_GS SET SPECIFIED FLAGS. 


/EOP : DDD00 REPORT END OF PASS MESSAGE AFTER EVERY 
DODDD PASSES OMY. (D0000 = 1 '0 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5.10.11.12 CUNIT NUMBERS + 0-63) 


EXAMPLE OF SWITCH USAGE : 

START/TESTS: 1-S/PASS: 1000/E0P : 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5S Will BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES OMY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAr. 
FOR EXAMPLE, TYPE “/TES:1-S" INSTEAD OF “/TESTS:1-S~. 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 


ee ee ee 


ee ee ee ee 
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LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER ; START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS. 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OF 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 


HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 


LOE LOOP ON ERROR 
IERe INHIBIT ALL ERROR REPORTS 
IBRe INHIBIT ALL REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL 
ERROR TYPE, . PC, TEST AND UNIT) 
IXEs INHIBIT EXTENDED ERROR REPORTS ( THOSE 
CALLED BY PRINTX MACRO’S) 
PRI DIRECT MESSAGES TO LINE PRINTER 
PNT PRINT TEST NUMBER AS TEST EXECUTES 
BOE “BELL” ON ERROR 
UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 
ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IDR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 


PORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 
/FLAGS :LOE : IER: BOE 


2.1 HARDWARE PARAMETERS 


ON A “N” RESPONSE TO "CHANGE HW?”, THE DIAG SHALL RUN ASSUMING 
ONE UNIT AT TSDB = 172520 WITH A VECTOR = 224 AND DRIVE=0. 


ON A “Y" RESPONSE TO “CHANGE HW?” QUESTION, THEN 

THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE . 

TSDB ADDRESS (0) 172520 ? 

VECTOR (0) 224 ? 


SE. ECT DRIVE 0-1 (0) ? 


SEG O01! 


Be 
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687 THE VALIDITY OF THESE PARAMETERS CAN BE CHECKED BEFORE RUNNING THE TESTS | 
688 BY SETTING THE FLAG “ADR” ON A STA, RES OR CON COMMAND, | 
689 THE SO CALLED AUTO DROP CODE SHALL THEN BE EXECUTED AFTER THE INIT CODE | 
690 AND BEFORE THE HARDWARE TESTS ARE RUN. THAT CODE FIRST TESTS THE ADRRESS | 
691 OF THE TSOB(S). IF NO RESPONSE, IT OROPS THE UNIT(S) IMMEDIATELy 
692 WITH THE FOLLOWING MESSAGE: | 
693 
694 BUS TRAP AT XXXXXxX ( XXXXXX = TSOB AD ) 

695 INTERFACE BAD OR NOT SET TO ABOVE ADORESS. | 
696 | 
697 ON A RESPONSE FROM THE INTERFACE, THE UNITS THAT ARE NOT READY OR NOT | 
698 ON-LINE ARE DROPPED IMMEDIATELY. THE HARDWARE TESTS SHALL THEN 

699 BE RUN ON RESPONDING UNITS. 
700 

701 IF THE “AOR” FLAG IS NOT SET, THE READY AND OFF -LINE STATUS OF THE 

702 DRIVE IS CHECKED. A MESSAGE SHALL BE PRINTED EVERY SO OFTEN 

703 TO WARN THE OPERATOR OF DRIVES BEING NOT READY OR OFF-LINE. THESE ORIVES 

708 SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME. 

7 

706 2.2 SOFTWARE PARAMETERS 

707 et aS :  paeeeneseerenenaaen 

708 | 

709 THE FOLLOWING QUESTIONS ARE ASKED WHEN ONE ANSWERS YES TO THE CHANGE SOFTWARE 

710 QUESTION ON A START, RESTART.OR CONTINUE. 

71 THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. 

1 

713 CLEAR COUNTERS (L) Y ? 

14 

715 RESET RANDOM VARIABLES (L) N ? 

16 

77 PRINT RECOVERABLE ERRORS (L) N ? 

‘ 

ah HALT AFTER EACH CMD (L) N ? 

721 INHIBIT RECOVERY (L) N ? 

723 BAD TAPE SPOT DETECTION (L) Y ? 

725 DISABLE INTERRUPTS (L) N ? 

727 INHIBIT RFC ERROR REPORTS (L) N ? 
729 CHANGE CMD SEQUENCE (L) N? = (SEE _NOTE1:) 

731 DEFAULT SWITCH SETTINGS (L) Y ? 

733 LOOPS (L) N? 

735 WRITE BUFFERING (L) N ? 

737 READ BUFFERING (L) N ? 

739 

740 ANSWERING NO TO THE DEFAULT SWITCH QUESTION WILL CAUSE THE 

7a 100 IPS QUESTION TO BE ASKED. 

4 


743 ANSWERING YES TO THE 100 IPS QUESTION WILL INHIBIT THE LAST 
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TWO QUESTIONS, 


ANSWERING NO TO THE 100 IPS QUESTION WILL CAUSE THE WRITE 
BUFFERING QUESTION TO BE ASKED. 


ANSWERING YES TO THE WRITE BUFFERING QUESTION WILL INHIBIT THE 
LAST QUESTION. 


ANSWERING NO TO THE WRITE BUFFERING QUESTION WILL CAUSE THE 
READ BUFFERING QUESTION TO BE ASKED. 


NOTE1: 


anenk QUESTION SHOULD BE ANSWERED (N) UNLESS AN 


LOWING 
QUESTIONS MUST BE ANSWERED OR DEFAULTED WITH A <CR> ONLY: 


ore tt CODE (0) 40 2? (0,20,40,200) (OCTAL) 
) (DECIMAL 


CMD/2 (0) 13 (1-27) IMAL ) 
BRE COUNT toy’ (1-2K) (DECIMAL) 
@ OF OPERATIONS (D0) 1 ? (1-32K) (DECIMAL ) 
PATTERN (D) (0-8) COECIMAL ) 
CMD/3 (0) 4 ? (1-27) DECIMAL ) 
BRF COUNT (0) 204 (1-2k) (DECIMAL) 
@ OF OPERATIONS (D) 32000 ? (1-32K) (DECIMAL ) 
PATTERN (0) 7 ? (0-8) (OECIMAL ) 
CMD/4 (0) 3 ? (1-27) DEC 
BRF COUNT (0D) 204 (1-2¥) (DECIMAL) 
e OPERATIONS (0) 32000 ? (1-32K) (DECIMAL ) 
PATTERN (D0) 7 ? (0-8) (DECIMAL ) 
CMD/S (0) 2 ? (1-27) (OECIMAL) 
COUNT (0) 2048 ? (1-2K) (DECIMAL) 
@ OF OPERATIONS (D) 32000 ? (1-32K) (COECIMAL ) 
PATTERN (D0) 7 ? (0-8) (OECIMAL ) 
CH0/6 (0) 13. ? (1-27) (DECIMAL) 
BRF COUNT (D) 1 ? €1-2k) (DECIMAL ) 
@ OF OPERATIONS (D0) 1 ? (1-32K) (CDECIMAL ) 
PATTERN (0) 7 ? (0-8) (OECIMAL ) 
CMD/7 (0) 27. ? (1-27) DECIMAL ) 
BRF COUNT (D0) 2048 ? (1-2k) (DECIMAL ) 
@ OF OPERATIONS (0) 32000 ? (1-32K) (DECIMAL) 
PATTERN (0) 7 ? (0-8) (DECIMAL ) 
CMD/8 (0) 27. ? (1-27) (CODECIMAL ) 
BRF COUNT (D) 2048 ? (1-2k) (DECIMAL) 
@ OF OPERATIONS (D) 32000 ? (1-32K) (DECIMAL) 
PATTERN (D0) 7 ? (0-8) (DECIMAL ) 


NOTE: 


THE PROGRAM AUTOMATICALLY INSERTS A ae tee it CODE OF 40 
AS THE FIRST COMMAND IN THE SEQUENCE TABLE. IF A 

OIFFERENT CHARACTERISTIC IS DESIRED, THE OPERATOR SHOULD 
ENTER THAT CHARACTERISTIC CODE. A TOTAL OF 7 COMMANDS 

MAY BE ENTERED IN ADDITION TO THE SET greg ed oe 

COMMAND. IF THE OPERATOR WISHES TO USE LESS THAN 7 

COMMANDS, AN END COMMAND MUST BE ENTERED AND THEN A 

CONTROL Z (*Z) CAN BE ENTERED TO TERMINATE SOFTWARE DIALOGUE. 


2.2.1 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 
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: 


Ceneo Yawulhr 


26 
27 


OLY 
END 


D2 


SEQ 0016 


DESCRIPTION 


ORIVE INITIATE. 
READ FORWARD. 
READ REVERSE. 


WRITE. 
WRITE/VERIFY. IE. WRITE N RECORDS; READ REVERSE AND CHECK 
N RECORDS OF vee FORWARD AND CHECK N RECORDS. 


ACE . 
READ NEXT REVERSE, IE. SPACE FWO, READ REV. 
NEXT Fi A 


READ PREVIOUS FWD. IE. SPACE REV, READ FWD. 
READ PREVIOUS REV, IE. READ REV, SPACE FwD. 
WRITE RETRY. 


IND. 
MESSAGE = pe 8 — . 


Iu . 
SPACE FILES REVERSE. 
GET EXTENDED STATUS. 
OND. 3 INCHES OF TAPE. 


CLEAN 

SET DEVICE CHARACTERISTIC. WHERE BRF=200, 40 0. 
200 = ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT) 
40 = ENABLE ATTENTION INTERRUPTS. 

20 = ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 

SEE TSVOS/TSOS PROGRAMMING tg toy. FOR DESCRIPTION. 
JUMP TO THE NTH COMMAND IN THE COMMAND SEQUENCE 


S N TELO. 
OF JUMPS IS ENTERED IN THE © OF OPERATIONS FIELD 


NUMBER 
DELAY “N” MILISECONDS WHERE N IS DEFINED IN 
THE @ OF OPERATIONS. 
END OF COMMAND SEQUENCE. 


2.2.2 DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE. 
PATTERN © 


@raouvswutro 


DESCRIPTION. 

INCREMENTING PATTERN. 0 - 377. 
ALL “1"'S PATTERN. 

ALL “O"'S PATTERN. 


"1" BIT WALKING FROM R TO L IN A FIELD OF “O"'S. 

“0” BIT WALKING FROM R TOL IF A FIELD OF “1”'S. 

ALTERNATING "1" AND “O” BITS WITH ALTERNATE BYTES COMPLIMENTED. 
ALTERNATING BYTES OF 000 377 


P 
NO PATTERN GENERATION. 
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2.3 EXAMPLES OF SOFTWARE DIALOGUE 


CHANGE HW (L) ? 

@UNITS (0D) ? 

TSOB ADDRESS (0) 172520 ? 

VECTOR (0) 224 ? 

SELECT DRIVE 0-1 (0) ? 
IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
ry Ah CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 

CHANGE SW (L) ? 


2.3.1 BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED 


A) RECEIVE PROMPT (DR>) 
8) ree ae :1-2<CR> 


C) ANSWER HARDWARE QUESTIONS. 
D0) PROCEED WITH THE FOLLOWING DIALOGUE: 
CHANGE SW (L) ? Y<CR> 
CLEAR COUNTERS (L) N ? Y<CR> 
RESET RANDOM VARIABLES (L) N ? <CR> 
PRINT RECOVERABLE ERRORS (L) N ? Y<CR> 
HALT AFTER EACH CMD <CR> 
INHIBIT RECOVERY (L) N <CR> 
TAPE SPOT DETECTION. (L) ¥ ? <CR> 
oI E INTERRUPTS (L) N ? <CR> 
INHIBIT RFC ERROR REPORT (L) N ? <CR> 
CHANGE CMD SEQUENCE (L) N ? <CR> 
DEFAULT SWITCH SETTINGS (L) Y ? <CR> 


2.3.2 TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS. 
A) RECEIVE PROMPT (OR>) 
8) oot ports AE geapads A : IER: ISR: IDU<CR> 


Cc) R HARDWARE 

D) PROCEED WITH THE FOLLOWING DIALOGUE: 
CHANGE SW (L) ? Y<CR> 
CLEAR COUNTERS (L) N Y<CR> 
RESET RANDOM VARTABLES (L) N ? N<CR> 
PRINT RECOVERABLE ERRORS (L) N ? N<CR> 
HALT AFTER EACH CMD (L) k ? N<CR> 
INHIBIT RECOVERY (L) N ? N<CR> 
BAD TAPE SPOT DETECTION (L) Y ? N<CR> 
DISABLE INTERRUPTS (L) N ? N<CR> 





a ee ee ee ee oe eee ere ee re oe 
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INHIBIT RFC ERROR REPORT (L) N ? 
CHANGE CMD SEQUENCE (L) N ? 
DEFAULT SWITCH SETTINGS (L) Y ? 


SEQ 0018 


Y¥<CR> 
N<CR> 
<CR> 


2.3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 


A) 
B) 
C) 
0) 


RECEIVE PROMPT (DR>) 
ENTER STA/TES:S/FLA: 5 th : IDU/EOP ; 1000<CR> 


ANSWER HARDWARE QUESTIONS. 
PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE SW (L) ? 

CLEAR COUNTERS (L) N ? 

RESET RANDOM VARIABLES (L) N ? 
PRINT RECOVERABLE roy _ N ? 


PATTERN (0) 7 ? 

CMD/3 (0D) 5 " 

BRF (D) 2048 ? 

@ OF Scat et (0) 10 ? 


BRF (D) 2048 ? 


2.4 EXECUTION TIMES 


POP11/23 
MOS MEMORY 


LA36 
TSVOS/TSOS 


2.4.2 TEST EXECUTION TIMES (2400 FT. TAPE) 


(REWIND ) 
4<CR> (WRITE) 


> 
27<CR> (END) 


- BASIC FUNCTIONS - 30 SECONDS PER PASS. 
- DATA RELIABILITY - 45 MINUTES PER PASS. 
- WRITE COMPATABILITY - 20 MINUTES PER “ey 


READ COMPATABILITY - 20 MINU 


TES PER P 


ASS. 
RANDOM/OPERATOR SELECTED SEQUENCE -20 MINUTES PER PASS. 
ALL EXECUTION TIMES ARE SHOWN FOR ONE DRIVE OPERATION. 
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968 
269 3.0 ERROR INFORMATION 
WO ee ee a ne oS "pp een e eee seek ewe 
971 
972 
973 3.1 ERROR REPORTING 
Lin Ree satwn see See 
97 
976 ALL ERROR REPORTS EXCEPT FOR ERRORS #1 AND 017 INCLUDE A DUMP 
977 OF THE FOLLOWING INFORMATION: 
978 
979 ERROR @, TEST ®, SUBTEST @, PROGRAM ore UNIT @, 
980 COMMAND, PREVIOUS COMMAND, PASS COUNT, 
981 RECORDS FROM BOT, RECORD READ COUNT, THE COMMAND PACKET, TSSR, 
982 TCC, TSBA, RFC, AND THE EXTENDED STATUS REGISTERS 
983 (SEE 2.3.14.1 FOR LIST OF COMMANDS). 
984 
985 STANDARD ERROR REPORT FORMAT: 
986 
987 CVTSE SFT ERR XXXXX TST XXX SUB XXX PC: XXXXXX 
988 (ASCII ERROR MESSAGE ) 
989 XXX CMD FAILED - UNIT X PASS: XXXXX RECORD: XXXXxX 
990 PREVIOUS CMD WAS XXX ¢ RECORD READ: XXXXX « 
991 T TSBA RFC TSSR TCC 
992 XXXXXX MAKXXX XARXAXAXK XAAXAMKK Xx 
993 XXXXXX 
994 XXXXXX 
995 XXXXXX 
996 xSTO XST1 xST2 XST3 XST4 
997 MMXXXX ARXXAXK AXAXAXKX AAKXKX AXXAXXX 
998 
999 
boon *# CAUTION «+ 
1002 INTERPRET THAT “RECORD READ” COUNT WITH CAUTION. 
1003 IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOSTIC. 
1004 TAPE POSITION IS NOT NECESSARELY LOST. ERRORS IN READING THAT 
1005 RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY 
1006 READ FROM TAPE. 
1007 IN TEST 2, IF DIAGNOSTIC IS RESTARTED OR CONTINUED. ——. t COUNT 
1008 IS RESET TO ZERO ALTHOUGH THE TAPE IS NOT REWOUND. s IS 
1009 NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERM INE 
1010 ON WHAT RECORD COUNT OF WHICH UNIT THE DIAGNOSTIC WAS HALTED 
1011 BEFORE RESTARTING OR CONTINUING. 
1012 IT IS SUGGESTED THAT A “PRINT” BE REQUESTED WHEN HALTING DIAG 
101s TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 
core EXAMPLE OF AN ERROR REPORT: 
1017 CVTSE SFT ERR 00009 TST 002 SUB 000 PC: 010606 
1018 RECOVERABLE ERROR 
1019 WRT CMD FAILED - rt 3 2 PASS: 2 RECORD: 254 
— PREVIOUS CMD WAS 
1 


rons TSBA RF c TSSR — 


00005 002324 000000 100210 
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3.1.4 


3.1.5 


3.1.5.1 
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000371 
XSTO XST1 xST2 xST3 XST4 
000350 000002 100004 000000 040055 


ERROR @1 - COMMAND PACKET ADDRESS NOT ON A MODULO 4 BOUNDRY: 


IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERL 
ba at ot A epee FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 


ERROR #2 - TSOS NOT READY: 


BEFORE ANY COMMAND IS ISSUED TO THE TSOS, THE SUBSYSTEM READY 
BIT IN THE TSSR IS CHECKED. IF THE SSR IS NOT SET, THE PROGRAM 
REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 
cotuen ti woe BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 


ERROR @3 - NO RESPONSE ERROR: 


ONCE THE TSOB IS LOADED, THE TSOS HAS ONE MILLISECOND TO RESPOND 
OR THE PROGRAM REPORTS A NO RESPONSE ERROR. THIS IS A FATAL 

DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE 
UNLESS THE IDU OPTION IS USED. 


ERROR #4 - NO INTERRUPT ERROR: 

COMMAND WAS ISSUED AND NO at 7 ¢ — THE PROGRAM REPORTS 
THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE ERROR AND 

THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
OPTION IS USED. 

SPECIAL CONDITION ERRORS: 

IF, DURING EXECUTION, AN INCIDENT OCCURS FORCING THE TSSR 


SPECI9L CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF 
. — HANOLING ROUTINES, DEPENDING ON THE TERMINATION CLASS 


THE TERMINATION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 
WHEN SPECIAL CONDITION IS SET: 

ERROR #5 - TERMINATION CLASS CODE 0, UNDEFINED SPECIAL CONDITION 
THE ERROR IS REPORTED, A HARD ERROR IS LOGGED 

AND THE PROGRAM PROCEEDS NORMALLY. 

ERROR #6 - TERMINATION CLASS CODE 1, ATTENTION CONDITION 

THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 





| 


1136 FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


1 
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1082 SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 
1083 ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 
1084 THE IDU OPTION IS USED. 
183 
1087 3.1.5.3 ERROR @7 - TERMINATION CLASS CODE 2, TAPE STATUS ALERT 
1088 
1089 A STATUS CONDITION 2 BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 
| 1090 TO THE PROGRAM. BITS OF INTEREST INCLUDE bgt RLS, LET, RLL, EOT. 
1091 ACTION TAKEN DEPENDS ON THE TEST BEING EXECUTED. 
| 1092 IF THE CONDITION IS UNEXPECTED, THE ERROR IS REPORTED AND 
1093 A HARD ERROR IS LOGGED. THE PROGRAM PROCEEDS NORMALLY. 
1094 
188 
| ote 3.1.5.4 ERROR @6 - TERMINATION CLASS CODE 3, FUNCTION REJECT 
1 
1098 THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 
1099 RMR, OFL, VCK, BOT, ILC, WE, ILA, AND NBA. THIS IS A FATAL 
1100 DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE 
1101 UNLESS THE IDU OPTION IS USED. 
ut 
4 31.5.5 ERROR @9 - TERMINATION CLASS CODE 4, RECOVERABLE ERROR 
1106 TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 
1107 THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
1108 ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. IF RETRY LIMIT 
1109 IS REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
rie IS REPORTED AS DESCRIBED IN ERROR 014 BELOW. 
1112 
ree 3.1.5.6 ERROR #10 - TERMINATION CLASS CODE 5, RECOVERABLE ERROR 
1115 TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
1116 ERROR AND RE-ISSUE THE ORIGINAL COMMAND. IF RETRY LIMIT IS 
1117 REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
1118 IS REPORTED AS DESCRIBED IN ERROR #14 BELOW. 
ig 
Ww 3.1.5.7 ERROR #11 - TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 
1123 : TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE IS TO 
1124 REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR SEQUENCE 
1125 NUMBERS. IF DENSITY CHECK IS SET THIS DIAGNOSTIC WILL REWIND AND 
1126 RETRY THE COMMAND, OTHERWISE THIS IS A FATAL DEVICE ERROR AND THE 
tH DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 
1129 
74 3.1.5.8 ERROR #12 - TERMINATION CLASS CODE 7, FATAL SUBSYSTEM ERROR 
1132 THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING COMMANDS OR AT 
1133 LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. REFER TO THE 
1134 FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR ADDITIONAL INFOR- 
| 1135 MATION ON THE TYPE OF FATAL ERROR. THE DEVICE WILL BE DROPPED 
| 
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3.1.8 


3.1.9 


3.1.10 


14-JUN-84 18:32 SEQ 0022 


ERROR #13 - RFC NON-ZERO ERROR: 


IF, AFTER EXECUTION, THE RESIDUAL FRAME COUNT IS NON-ZERO, THE 
ERROR IS REPORTED AND A HARD ERROR IS LOGGED. THE PROGRAM THEN 
Ag ate LY. THE REPORTING AND LOGGING OF THESE ERRORS 


ERROR #14 - RETRY LIMIT EXCEEDED: 


ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 
WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND 
THE PROGRAM PROCEEDS NORMALLY. 


ERROR @15 - TOO MANY INTERRUPTS: 


IF MORE THAN ONE INTERRUPT OCCURS PER COMMAND, THIS ERROR IS REPORTED. 
THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ERROR #16 - CAPSTAN RUNAWAY: 


CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINDOW AFTER LAST 

COMMAND. THE PROGRAM WILL ISSUE A GET STATUS COMMAND BEFORE REPORTING 
THE ERROR SO THAT THE DEAD TRACK FIELD IN EXTENDED STATUS REGISTER 2 
WILL CONTAIN THE TACH COUNT WHEN THE TAPE STOPPED. 

THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 

THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ERROR #17 - DATA COMPARE ERROR: 


IF A DATA VALIDATION ERROR OCCURS DURING A WRITE/VERIFY ee 
THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT T 

DATA WAS, AND PRINTS THE BYTE AND RECORD NUMBER THE ERROR OCCURRED 
ON. ONLY THE FIRST 10 BYTES IN ERROR PER RECORD ARE PRINTED. 

THE TOTAL @ OF BYTES IN ERROR PER RECORD IS ALSO PRINTED. A 

HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS NORMALLY. 


3.2 ERROR HALTS 


4.0 PERFORMANCE REPORT 


ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
WITH /FLAG:HOE. THERE ARE NO OTHER HALTS. 


UNIT X  PASS:XXXXX RECORD: XXXXX 
BYTES WRITTEN XXX,XXX,XXX, XXX 
BYTES READ REV XXX,XXX,XXX,XXX 
BYTES READ FWD XXX,XXX,XXX, XXX 





—_ a ee ee | ee es ee ee ee - -_--- ’ 


WRITE/VERIFY PATTERN O. 
1235 SUBTEST 4 - WRITE TAPE MARK, ERASE. 
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1196 WRT ROR ROF 
1197 RECOVERABLE ERRORS = XXXXx XXXXX —_ XXKKX 
1198 UNRECOVERABLE ERRORS XXXXX XXXXX XXXXX | 
1199 
1200 SPEC COND HARD FATAL COMPARE 
1201 XXXXX XXXXX XXXXX XXXXX 
1202 
1203 
1204 
1205 
1206 
1207 5.0 TEST SUMMARIES 
66 1 Ee ON eemenaetnen 
1209 
1210 5.1 TEST 1 - BASIC FUNCTIONS. 
1211 
i212 EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL TSOS FUNCTIONS. 
121 
1214 SUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS. 
1215 + SET CHARACTERISTIC 200. 
1216 + DRIVE INITIATE. 
1217 + SET CHARACTERISTIC 20. 
1218 + GET STATUS 
1219 + SET SMARMETERISTIC 40. 
1220 + PRINT TSOS MICROCODE LEVEL (PASS 1 ONLY) 
1222 SUBTEST 2 - REWIND. 
1223 ¢ REWIND. 
1224 + REWIND AT BOT. 
1225 
1226 SUBTEST 3 - WRITE/VERIFY. 
1227 + WRITE/VERIFY PATTERN 1. 
1228 + WRITE/VERIFY PATTERN 2. 
1229 ¢ WRITE/VERIFY PATTERN 3. 
1230 + WRITE/VERIFY PATTERN 4. 
1231 ¢ WRITE/VERIFY PATTERN S. 
1232 + WRITE/VERIFY PATTERN 6. 

1236 ¢ WRITE TAPE MARK. 

1237 * WRITE 10 RECORDS 

1238 + ERASE 10 TIMES 
| 1239 : ¢ WRITE TAPE MARK 

1240 ¢ WRITE TAPE MARK RETRY. 
| 1242 SUBTEST 5S - SPACE FILES. 
| 1243 + SPACE 2 FILES REVERSE. 
| 1244 + SPACE 2 FILES FORWARD. 

1245 + SPACE 2 FILES REVERSE. 
1246 + SPACE 2 FILES FORWARD. 
1248 SUBTEST 6 - SPACE RECORDS. 
1249 * REWIND. 
 - 1250 + SPACE 7 RECORDS FORWARD. 
| 41251 + SPACE 7 RECORDS REVERSE. 


1252 + SPACE 7 RECOROS FORWARD. 
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SUBTEST 7 - 


SUBTEST 6 - 


SUBTEST 9 - 


SUBTEST 10 - 


SUBTEST 11 


SUBTEST 12 


. 

+ SPACE 7 RECORDS REVERSE. | 
WRITE RETRY. 
NO. 


+ WRITE RETRY. 


READ REV RETRY. 
+ READ REVERSE. 
+ READ NEXT REVERSE. 
+ READ NEXT FORWARD. 


READ FWD RETRY. 
+ READ FORWARD. 
+ READ PREVIOUS FORWARD. 
* READ PREVIOUS REVERSE. 


CLEAN. 
+ CLEAN. 
+ REWIND. 


- WRITE/VERIFY SWAPPED DATA BYTES. 
+ WRITE/VERIFY EVEN LENGTH (RECORD 1). 
+ WRITE/VERIFY ODO LENGTH (RECORD 2). 
+ SET DATA BYTE SWAP. 
+ WRITE/VERIFY EVEN LENGTH LL 3). 
+ WRITE/VERIFY OOD LENGTH (RECORD 4). 
+ CLEAR DATA BYTE SWAP. 


- READ SWAPPED DATA je: 


e+e eee ee @ 
Ff 
& 
wn 
. 
a 
: 
~ 


READ FWD RECORD 4. 
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5.2 TEST 2 DATA RELIABILITY. 


1. THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS: 
a ERISTIC 40 


WRITE 64 RECORDS OF RANDOM LENGTH AND DATA 
2. WRITE AND A, COMMANDS ARE SELECTED AT RANDOM AND ARE 


3. AT THE END OF EACH PASS, A REWIND COMMAND IS ISSUED AND 
A PERFORMANCE REPORT IS PRINTED. 


NOTE: IF A RESTART COMMAND IS USED TO INITIATE 
TEST 1, THE INITIAL REWIND COMMAND IS NOT ISSUED. 


5.3 Tes? 3 - WRITE COMPATABILITY/WRITE UTILITY. 


REWINDS AND WRITES RECORDS OF RANDOM LENGTHS 
AND RANDOM DATA FROM BOT TO EOT. 


5.4 TEST 4 - READ COMPATABILITY/READ UTILITY. 
REWINDS AND READS ENTIRE TAPE, FORWARD AND REVERSE. 


5.5 TES’ S - RANDOM/OPERATOR SELECTED COMMAND SEQUENCE . 


A DEFAULT SEQUENCE OF REWIND/WRITE/READ REV/READ ©WD/REWIND 
OF ENTIRE TAPE IS EXECUTED WITH RANDOM PATTERN 

MM RECORD LENGTH OF 2046 BYTES. OPERATOR CAN ENTER 
SEQUENCE OF COPPIANDS LP TO SEVEN IF THEY DON'T WANT 

COEF AAT SEQUENCE . 


%.0 DEVICE INFORMATION TABLES 


THE TSOS TAPE SUBSYSTEM CONSISTS OF A TSVOS A BUS 
CONTROLLER COMMECTED TO A TSOS ORIVE. FROM A SOFTWARE VIEWPOINT 
ere ee IS UNIQUE (FOR A @-8US DEVICE) IN A NUPBER 


A. GY OME REGISTER MAY GE WRITTEN - TSOB8 (TAPE SYSTEM 
DATA BUFFER). 


8. "WO REGISTERS MAY BE READ - TSSR AD TSBA (TAPE SYSTEM STATUS 
REGISTER AMD TAPE SYSTEM BUS ADDRESS REGISTER). 


C. COPPWADS ARE NOT WRITTEN TO THE ORIVE; RATHER, COMP 
POINTERS ARE WRITTEN WHICH POINT TO COPPA PACKETS SOME - 
WERE IN CPU MEMORY. THE COPPWED POINTER IS USED BY 
THE TSOS SUBSYSTEM TO FETCH THE WORD(S) MITHIN THE COPAND 
PACKET. THE WORDS WITHIN THE COPPA PACKET ARE: 


TSVOS D474 GEL TABILIT® 


mace M1115 


14 JUN 84 18:52 


i. COMMAND WORD 

2. LOW ORDER BUFFER ADDRESS 
3. MIG4 ORDER SUFFER ADORESS 
4. 8YTE COUNT 


. THE TSSR CONTAINS ALL THE INFORMATION WHICH WILi BE NEC- 


ESSARY TO DETERMINE WETHER: 
1. THE ORIVE IS READY TO ACCEPT ANOTHER COMPO. 
2. TE PREVIOUS WAS EXECUTED wiTtHOuT 
IF EITHER OF THE TONS IS UNTRUE AT “JOB DONE ~ 
OR “COPPWO INITIATION~ TIME.IT MAY BE NECE v 
TO GET THE EXTENDED STA TO DETERMINE WHAT 


ie] 
ACTION IS TO BE TAKEN AND/OR LOG THE ERROR INFORMATION. 


E. EXTENDED STATUS REGISTERS ARE NOT READ DIRECTLY FROM 
COMMAND 


ORIVE REGISTERS; RATHER, A “GET STATUS” 
IS ISSUED WHICH WILL CAUSE THE TSOS TO TRANSFER EXTENDED 
: MEMORY AREA 


STATUS INFORMATION TO THE POINTED TO BY THE 
BUFFER ADDRESS OF THE “GET STATUS” COMMAND. THERE ARE “IVE 
EXTENDED STATUS REGISTERS . 


. THE TSOB MUST BE WRITTEN WITH A DATO INSTRUCTION TO 


PROPERLY WRITE THE COMMAND POINTER. A DATOB WILL 
CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE 
2 BSYSTEM INIT. 


COMMAND PACKETS MUST RESIDE ON DIVIDE BY FOUR 
MEMORY BOUNDARIES (AS OPPOSED TO DIVIDE BY 2 OR WORD 
BOUNDARIES) . 
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6.2 


TSVOS/ 
TSO05 


b4 


INT. 
VECTOR 





UNIBUS 
ADORE SS 


772520 
772522 


REGISTER 


TSBA/TSOB 
TSSR 
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0S 04 O83 


tA051A08:A03! 


Ce eee ee ee | 


: peat! 


ree Pees 


tTE $VCKiPED! 
we at oe 
TET TTT Try 
'O!0!0: 
£4 
errr eee Pee | 
IRLSIRL4IRL3! 
. -. +o 
eo | 
ic) 8 


SEQ 0028 


Phan 


tTCLITCO! 0 g 
7 


ee ee e---6¢ 


( TSOBXx EXISTS ONLY WHEN 
ENABLED BY THE EXTENDED 
FEATURES SWITCH ON THE M7196) 


--<+@--+- 


WRI TE RETRY COUNT : 


6.3 BIT DEFINITIONS FOR TSVOS/TSOS REGISTERS 
6.3.1 TSVOS/TSOS REGISTER SUMMARY 
i514 13 12 11 10 09 08 07 06 
eee ee eee eee eee ee eee eee eee ee ees ees 
tA1S! rALG:ALSIALZ! tA111A101A09! 108107 !AO6! 
(R/O) TSBA! ! ' 
!P1S! 1P14iP131P 12! tP111P101P09! 1P081P07 P06! 
(w/0) TSOB! ! i! 
ee ee oe oe oe | packs eee eee! ee ee eee 
'SC ! ! 0 !SCEIRMR! rNAMENBALAL7! tAl6!SSRIOFL ! 
(R/O) TSSR! !$! !$ ?¢ ! :! 
eee ee ee ee eee ee eee ees ees ee eee ee @--<-6 
merr1oraro! 1P21 16201191 P16! 
(wo)TsoBx ! '! ¢$ $ ft ff 
ee ee ee ee ee ee ee ees ees ee ee | 
eee! 2 ee ee 2 oe ee ee! 2 ee eee eee) 
TMK! ¢RLSILETIRLL tMLEINE TLC! tILAMOT 10M! 
xsTO! !! 2 i! : 
ee ee ee eee ee ee ee eee eee Oe eee eee eee | 
‘LT! $0 1COR! Of !0!0!0! IRBP!HO!0! 
me 26-28. £88 2 - Fes. 8.3.4 
Cee ee ee ee eee ee ee ee eee ee eee eee eee 
10PM! !RCE! Of 0! ! 0 IMCF!O ! ! O IRL7IRLE! 
Mat. 24 oS: Bee es ee Per 
ee ee oe ee ee ee ee ee eee ee ee eee eee) 
! MICRO DIAGNOSTIC ERROR CODE ! 0 !0PI! 
xST3 ! Ped Ss 
Or O--- been eee ee ee eee ee! Oe eee eee eee) 
'HSP! I!RCE! 0 ! 0 0 0 0 Oo! 
xsT4! of! off : 
eee ee eee ee eee Oe ee eee eee! ee eee eee ee 


TERMINATION CLASS CODES (TSSR TCO-TC2): 


NOU Suhre o 


TION 


NORMAL TERMINA 
ATTENTION CONDITION 
TAPE STATUS ALERT 
pecree REJECT 


REC 


FATAL CONTROLLER ERROR 
CLASS CODES (TSSR FCO-FC1): 


MICRO DIAGNOSTIC FAILURE. SEE ERROR CODE BYTE (XST3) FOR FAILED FUNCTION. 
RESERVED 


NOT USED 
RESERVED FOR FUTURE USE ALWAYS READ AS A 0 


NOT MOVED 


E 
UNRECOVER ABLE ERR ERROR - TAPE POSITION LOST 


RECOVERABLE ERROR - TAPE POSITION = ONE RECORD 
one Say Bh My 
OVERABLE TAPE 


« 


ee ee oe 





D4 
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} 
1454 
1455 
1456 6.3.2 TSVOS STATUS REGISTER (TSSR) 
5 i a i a an ala inh iri te 
1458 
1459 
1460 Q-BUS ADDRESS + 2 - READ ONLY 
1461 
1462 15 14 is ae ss + res ~ - = “ _ - = re - 
1463 Std A Meld Melted Mele A ett Dette Se Bel Bed Ded ee ee ee ee ee ee ee 
1464 ‘— : 0 SCE SRM ENNMINBA!A17! tAL6!SSRLOFL! tFCLIFCO!TCa! rTC1!TCO! 0 ' 
465 
saaa ee ee ee ee ee eee eee ee ee eee eee | pidepsnesaua e---0---t---6 
1467 
1468 
1469 BIT NAME TCC DEFINITION 
1470 re ore 
1471 
1472 3s s oe nk at” Paced WHEN SET, INDICATES THAT 
1473 THE COMMAND OID NOT COMPLETE WITHOUT 
1474 INCIDENT. SPECIFICALLY, EITHER AN TSROR WAS 
1475 DETECTED OR AN EXCEPTION CONDITION UCCURRED. 
1476 EXCEPTION CONDITIONS CAN BE TAPE MARKS ON READ 
1477 COMMANDS, REVERSE MOTION AND AT BOT, EOT WHILE 
1478 WRITING, ETC. MAY ALSO BE SET BY THE ERROR 
1479 BITS CONTAINED IN THE TSSR REGISTER SCE 
1480 NXM. THE TION ae BITS ARE 
1481 SOME THING nae THAN O CUNLESS RMR IS THE ONLY 
1482 ERROR - SEE RMR). 
1483 
a 14 —=C«- - RESERVED (ALWAYS A 0) 
1486 13. SCE FCO SANITY CHECK ERROR-SETS WHEN THE CONTROLLER DETECTS 
1487 AN ABNORMAL CONDITION WITHIN ITSELF DURING EXECUTION 
1488 OF IT'S FUNCTIONS AND THE PROBLEM IS SERIOUS ENOUGH 
es THAT A MESSAGE PACKET IS NOT STORED. 
1491 12 RMR s ae MODIFICATION REFUSED. SET BY THE TSVOS 
1492 WHEN A COMMAND POINTER IS LOADED INTO TSOB AND 
1493 SUB-SYSTEM READY (SSR) IS NOT SET. NOTE THAT 
1494 THIS BIT CAUSES SPECIAL CONDITION BUT NO TERMINATION 
1495 CLASS ( ° T VER S THIS 
1496 CAUSE ON A SYSTEM WITH NO BUGS, was BIT MAY 
1497 COME UP ON AN ATTENTION MESSAGE. IF ATTNS ARE 
1498 NOT ENABLED, THIS BIT COMING UP IS AN INDICATION 
1499 OF EITHER A FATAL CONTROLLER ERROR OR A SOFTWARE 
1501 ae: 
1502 11 NXM = 4/5 NON-EXISTENT MEMORY. SET BY THE TSVOS WHEN 
1503 TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 
1504 WHICH DOES NOT EXIST. MAY OCCUR WHEN FETCHING 
1505 THE COMMAND PACKET, FETCHING OR STORING DATA, 
io OR STORING THE MESSAGE PACKET. 
1508 10 NBA S§ NEED BUFFER ADORESS. WHEN SET, INDICATES THAT 
1509 THE TSOS NEEDS A MESSAGE BUFFER ADDRESS. THIS 


1510 BIT IS CLEARED DURING THE SET CHARACTERISTICS 
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09 


07 


os 


03 


02 
01 


Al7 


Al6 
SSR 


OFL 


FC1 


FCO 
TC2 


S.1,.3 


COMMAND (IF A GOOD ADDRESS WAS GIVEN). 


BUS ADDRESS BIT 17. A17 AND Al6 (BIT 08) TRACK 
THE VALUES OF BITS 17 AND 16 OF THE TSBA 
REGISTER. LOADED FROM TSOB BITS 01-00 WHEN TSDB 
IS WRITTEN. 


BUS ADDRESS BIT 16. SEE A17 (BIT 09). 


SUB-SYSTEM READY. WHEN SET, INDICATES THAT THE 
TSVOS/TSOS SUBSYSTEM IS NOT BUSY AND IS READY TO 
ACCEPT A NEW COMMAND POINTER. 


OFF-LINE. WHEN SET, INDICATES THAT THE TSOS IS 
OFF-LINE AND UNAVAILABLE FOR ANY TAPE MOTION 
COMMANDS. THIS BIT CAN CAUSE A TERMINATION CLASS 
OF 1 (ON ATTN INTERRUPT) OR 3 (RESULTS IN NEF). 


FATAL TERMINATION CLASS 01. FC1 AND FCO (BIT 
04) ARE USED TO INDICATE THE TYPE OF FATAL 
ERROR WHICH HAS OCCURRED ON THE TSOS. THESE 
BITS ARE VALID ONLY WHEN SC IS SET AND THE 
TERMINATION CLASS CODE BITS ARE ALL SET (111). 


FATAL TERMINATION CLASS 00. SEE FC1 (BIT 05). 


TERMINATION CLASS BIT 02. THIS BIT, ALONG WITH 
THE TC1 AND TCO BITS, ACT AS AN OFFSET VALUE 
a AN ERROR OR EXCEPTION CONDITION OCCURS 
ON COMMAND. EACH OF THE EIGHT POSSIBLE 
VALUES OF THIS FIELD REPRESENT A PARTICULAR 
CLASS OF ERRORS OR EXCEPTIONS. THE CONDITIONS 
IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND, AS 
APPLICABLE, RECOVERY PROCEDURES. THE CODE 
PROVIDED IN THIS FIELD IS EXPECTED TO BE 
UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
HANOLING OF THE CONDITION. 


TERMINATION CLASS BIT 01. SEE TC2 (BIT 03). 
TERMINATION CLASS BIT 00. SEE TC2 (BIT 03). 
NOT USED. (ALWAYS A 0) 


Q-BUS ADDRESS + 2 - WRITE ONLY 
SUBSYSTEM INITIALIZE 
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6.3.2.1 


SEQ 0031 


TSVOS EXTENDED DATA BUFFER REGISTER (TSDBX) 


4 
4 
°o 

e+ e+e ¢ 
io] 


14-12 
11-08 P<21:16> 


07-00 


ee See e---¢ 


¢ 1P211P201P19! tae (TSOBX EXISTS ONLY WHEN 

$ 3 ENABLED BY THE EXTENDED 

¢ Poeehoretenee Heer FEATURES SWITCH ON THE M7196) 
DEFINITION 

BOOT COMMAND BIT. WHEN WRITTEN TO A 1,WITH 

SSR=1, CAUSES THE TAPE TO BE REWOUND TO BOT, 

THE FIRST TAPE RECORD TO BE SKIPPED, AND THE 

SECOND RECORD TO BE — INTO CPU MEMORY SPACE 


STARTING AT LOCATION 0 

RESERVED (ALWAYS A 0) 

COMMAND POINTER BITS 21-18. WHEN THE TSOBX IS WRITTEN 
AND SSR*i, THE DATA IS LOADED INTO BITS 21-18 OF 

THE INTERNAL TSBA REGISTER. 


RESERVED (ALWAYS A 0) 


EXTENDED STATUS REGISTER 0 (XSTATO) 


BIT NAME TCC 


1S TMK S.2 


14 RLS 2 


oil ol i 


IRUSILET tRLL! 


Re LE ee 


08 O7 06 = 


eee eee eee ee eee ee 


er et ‘a. = tVCK PED! 


oe 7 


{MLK !60T !€0T! 


I SR SN Pe Te Se 


TAPE MARK DETECTED. SET WHENEVER A TAPE MARK 
WAS DETECTED DURING A READ, SPACE, OR SKIP 
COMMAND AND AS A RESULT OF THE WRITE TAPE MARK 
OR WITE TAPE MARK RETRY COMMANDS. 


RECORD LENGTH SHORT. THIS BIT INDICATES THAT 


THE POSITION COUNT WAS EXHAUSTED, 
TAPE MARKS COMMAND WAS TERMINATED 
ph at ng BOT OR A DOUBLE T CIF THAT 


E TAPE MARK 
ONAL MODE IS ENABLED, SEE LET) PRIOR TO 
EXHAUSTING THE POSITION COUNTER. 
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1619 
1620 13 LET 2 LOGICAL END OF TAPE. SET ONLY ON THE SKIP TAPE 
1621 MARKS COMMAND WHEN EITHER TWO CONTIGUOUS TAPE 
1622 MARKS ARE DETECTED OR WHEN MOVING OFF OF BOT 
1623 AND THE FIRST RECORD ENCOUNTERED IS A TAPE 
1624 MARK. THE SETTING OF THIS BIT WILL NOT OCCUR 
1625 UNLESS THIS MODE OF TERMINATION IS ENABLED 
1626 THROUGH USE OF THE SET CHARACTERISTICS COMMAND. 
1627 
1628 ee RECORD LENGTH LONG. wHEN SET, THIS BIT 
1629 INDICATES THAT THE RECORD READ WAS LONGER THAN 
1630 THE BYTE COUNT SPECIFIED. 
1651 
1622 11 WLE 3,6 WRITE LOCK ERROR. WHEN SET, INDICATES THAT A 
1633 WRITE OPERATION WAS ISSUED BUT THE MOUNTED TAPE 
1634 DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT 
1635 LOCK SWITCH ACTIVATED OURING THE OPERATION. 
16 
1637 10 NET 3 NON-EXECUTABLE FUNCTION. WHEN SET. INDICATES 
1638 THA COMMAND COULD NOT BE EXECUTED DUE TO 
1639 ONE OF THE FOLLOWING CONDITIONS; 
1 
1641 - THE COMMAND SPECIFIED REVERSE TAPE 
1642 DIRECTION BUT TAPE WAS ALREADY 
1643 POSITIONED AT BOT. 





- THE ISSUING OF ANY MOTION COMMAND EXCEPT 
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1646 
1647 
1648 WHEN THE VOLUME CHECK BIT IS SET. 
1649 - ANY COMMAND, EXCEPT GET STATUS OR DRIVE 
1650 INITIALIZE, WHEN THE TSOS IS OFF-LINE. 
1651 - ANY WRITE COMMAND WHEN THE TAPE DOES NOT 
1652 CONTAIN A WRITE ENABLE RING (WRITE LOCK 
1653 STATUS - WLS). 
| 1654 
1655 o Lc 3 ILLEGAL COMMAND. SET WHEN A COMMAND IS ISSUED 
_ :1656 AND EITHER ITS COMMAND FIELD OR ITS COMMAND 
| (1657 MODE FIELD CONTAINS CODES WHICH ARE NOT 
| 1658 SUPPORTED BY THE TSOS. 
1659 
| 1660 o ILA 3 ILLEGAL ADDRESS. (MORE THAN 18 BITS OR ODD WHEN 
1661 AN EVEN ADDRESS IS REQUIRED. ) 
1 
1663 07 MoT Ss TAPE IS MOVING. 
1664 
| 1665 06 ON Ss ON LINE. WHEN SET, INDICATES THAT THE TSOS IS 
| 1666 ON-LINE AND OPERABLE. 
1 
| 1668 co « s&s INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
1669 INTERRUPT ENABLE BIT SUPPLIED ON THE LAST 
i671 od 
1672 04 vcK S VOLUME CHECK. WHEN SET, INDICATES THAT THE 
1673 ORIVE HAS BEEN EITHER POWERED DOWN OR TURNED 
1674 OFF-LINE. CLEARED BY THE CLEAR VOLUME CHECK 
1675 CCVC) BIT IN THE COMMAND HEADER WORD. THIS BIT 
1676 CAN CAUSE A TERMINATION CLASS OF 3. 
1678 03 PED Ss PHASE ENCODED DRIVE. ALWAYS SET, INDICATES THAT 
1679 THE TSOS IS CAPABLE OF READING AND WRITING ONLY 
1680 1600 BPI PHASE ENCODED DATA. 
1682 O02 WK  S,3 WRITE LOCKED. WHEN SET, INDICATES THAT THE 
1683 MOUNTED REEL OF TAPE DOES NOT HAVE A 
1684 WRITE-ENABLE RING INSTALLED. THE TAPE IS, 
1685 THEREFORE, WRITE PROTECTED. 
1687 01 BOT S,3 BEGINNING OF TAPE. WHEN SET, INDICATES THAT 
| 1688 THE TAPE IS POSITIONED AT THE LOAD POINT AS 
1689 DENOTED BY THE OT REFLECTIVE STRIP ON THE 
1690 TAPE. 
1692 00 €0T S,2 END OF TAPE. THIS BIT IS SET WHENEVER THE TAPE 
1693 IS POSITIONED AT OR BEYOND THE END OF TAPE 
1694 REFLECTIVE S‘RIP. 
| 
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6.3.4 EXTENDED 


15 OT 4 
“ul . 
13. COR § 
12-09 

08 RPB 4 
07-02 & 00 

01 UNC 4 


a 
N 


STATUS REGISTER 1 (XSTAT1) 


ee 


14 13 12 11 10 09 08 O07 06 0S 04 O83 02 O1 OO 
PO ICOR! OF !O!O!O0! RBP!O!LO!r!oO!o!O!!0 HUNCH O: 
: £88, @ es 28.. 35.8 28H 8 se we 
ee ee en Se ee ee eee ee ee eee ees ee eee eee eee ee eee eee eee 
DEFINITION 


DATA LATE. SET WHEN THE FIFO IS FULL ON A 
READ OR EMPTY ON A WRITE. THESE CONDITIONS 
OCCUR WHENEVER THE Q-BUS LATENCY EXCEEDS THE 
DATA TRANSFER RATE OF THE TSOS. 

NOT USED. (ALWAYS A 0) 


CORRECTABLE DATA. 
CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED. 


RESERVED (ALWAYS A 0) 


READ BUS PARITY ERROR. SET WHEN CONTROLLER DETECTS 
A PARITY ERROR ON THE READ DATA LINES OF THE TRANSPORT BUS. 


RESERVED (ALWAYS A 0) 


UNCORRECTABLE DATA ERROR. 


J3 | | | 
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1733 6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT2) 


12 11 10 O09 08 - ~ “ ” - “ “ rng 
1738 i ee ee ee ee ees ee ee ee een ee ee ee eee 

H !0 !weF!o:!:!:o0 1RL7ERL6! IRLSERLAIRL3! sRLZIAL1 :RLO! 

7 ‘ J LU ' ! 

+ 


ee ee oe ee oe) pan nenmiplewna a ere epee eee eee ee 
1744 BIT NAME TCC DEFINITION 

1745 ee ee 

1747 15 OPM S OPERATION IN PROGRESS. (TAPE MOVING) 

1749 14 RCE 7,Fe2 RAM CHECKSUM ERROR. CAUSES FATAL CLASS 2 BECAUSE THE 

1750 ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 

1751 MESSAGE PACKET. 

1753 13-11 RESERVED CALWAYS A 0) 

1756 10 WCF 7 WRITE CLOCK FAILURE. SET DURING A WRITE TO INDICATE THAT 

1757 THE FIFO IS NOT BEING EMPTIED BY THE TRANSPORT. 


1759 09-08 RESERVED (ALWAYS A 0) 


1762 07-00 RL - REVISION LEVEL. 





$e A A ee a ee 
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1767 6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 


1771 15 " ‘ - ae ” re _ 07 re Pla - “ _— 
° 


1778 BIT NAME TCC DEFINITION 
1779 ee eee 


| 

| 

1781 15 TO 08 MICRO DIAGNOSTIC ERROR CODE. (SEE LIST OF CODES BELOW). 
1783 07 RESERVED (ALWAYS A 0) 

1785 06 OPI 6 OPERATION INCOMPLETE. SET WHEN A READ, SPACE, 
1786 OR SKIP OPERATION HAS MOVED 25 FEET OF TAPE 
1787 WITHOUT DETECTING ANY DATA ON THE TAPE. 


1789 OS = REV S DIRECTION OF CURRENT OPERATION WAS REVERSE (BUT 
1790 IS 0 IF REWIND OR FORWARD) 


1792 04 - - RESERVED (ALWAYS A 0) 

1794 03 DOCK S.6 DENSITY CHECK. SET WHEN A PE 

1795 IDENTIFICATION BURST (IDB) WAS NOT DETECTED WHEN 
1796 MOVING OFF OF BOT. 

1798 02-01 RESERVED (ALWAYS A 0) 

1801 oO =«éRIB 2 REVERSE INTO BOT. A READ, SPACE, OR SKIP 

1802 COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE 


1803 BOT MARKER WHEN MOVING TAPE IN THE REVERSE 
1804 OIRECTION. TAPE MOTION WILL BE HALTED AT BOT. 


1807 6.3.7 EXTENDED STATUS REGISTER 4 (XSTAT4) 


1611 15 Fat Pos 12 11 10 09 08 07 neal Foes = es & 01 00 
1812 t---¢ #---6--- + + + + + 
1613 tHSP IRCE! 0 


1815 pcnbhy peineaties 


o> sere + 
°o 
o 
°o 
°o 
°o 


1819 BIT NAME TCC DEFINITION 
1820 ene seer one cw eeeeenee 





a —— + a ea ee ee ee Cr + 


LS 


TSVOS DATA RELIABILITY MACRO M1113 14-JUN-84 18:32 SEQ 0037 
1822 1S HSP) OS HIGH SPEED. WHEN SET, INDICATES THAT THE TRANSPORT IS 
1823 OPERATING IN HIGH SPEED MODE.(100IPS) WHEN CLEAR, THE 
1824 TRANSPORT IS OPERATING IN LOW SPEED MODE.(25IPS) 
182 
1826 14 RCE 6 RETRY COUNT EXCEEDED. WHEN SET, INDICATES THAT THE CONTROLLER 
1827 | WAS BUFFERING WRITE DATA AND COULD NOT SUCESSFULLY OUTPUT 
1828 THE BUFFERED RECORD WITHIN THE SPECIFIED NUMBER OF RETRIES. 
1829 CAUSES TAPE POSITION LOST TERMINATION. 
1830 
1831 13-8 . RESERVED (ALWAYS A 0) 
1832 
1833 7-0 wRe § WRITE RECOUNT COUNT STATISTIC. THIS FIELD INDICATES, WHEN 
1634 THE CONTROLLER IS BUFFERING WRITE DATA RECORDS, THE TOTAL 
1835 NUMBER OF CONTROLLER INITIATED RETRIES PERFORMED IN ORDER 
1836 TO WRITE THE PREVIOUS BUFFERED RECORD. THIS COUNT IS CLEARED 
1837 AFTER IT IS DISPLAYED. 
1838 
1839 
1840 
1841 7.0 DIAGNOSTIC HISTORY 
SOR i A ee aw AF ROS So. eeerereqonquenetes 
1843 
1844 REVISION A - MAR 1982 
1845 - MODIFIED CZTSHC FROM TS11 FOR TSVOS 
1847 REVISION B - APR 1983 
1849 - UPDATED THE DIAGNOSTIC TO SUPPLY THE CORRECT 
1850 RECORD NUMBER DURING EXECUTION OF TEST ¢2. 
1851 REF: CHMIELECKI TO MITCHELL "TSVOS DATA 
1852 RELIABILITY PROBLEM”; 21-JAN-83. 
1854 REVISION C - JUN 1984 
1856 MINOR CHANGES FOR “ORION” CPU 
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. | 
13 . TITLE PROGRAM yo AND "ABLES | 
14 "SBTTL PROGRAM HEADE 
43 
45 000000 -ENABL ABS,AMA 
ae 002000 ° = 2000 
48 002000 BGNMOD 
asc 
50 zee 
51 ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
S52 ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
53 Rae 
84 
= 002000 PCINTER BGNRPT .BGNSW,BGNSF T ,BGNAU , BGNDU 
04 
65 002000 HEADER CVTSE.C,.0.5000,1 
002000 LSNAME :: VOTAGNOSTIC NAME 
002000 103 ASCII /C/ 
002001 126 ASCII /v/ 
124 -ASCII /T/ 
002003 123 -ASCII /S/ 
002004 105 -ASCII /€/ 
002005 000 .BYTE 
00c .BYTE O 
002007 000 .BYTE O 
002010 LSREV: : sREVISION LEVEL 
002010 103 ASCII /C/ 
002011 LSDEPO: : 30 
002011 060 -ASCII /0/ 
002012 LSUNIT:: sNUMBER OF UNITS 
002012 000000 -WORD O 
002014 LSTIML:: sLONGEST TEST TIME 
002014 005000 -WORD 5000 
002016 LSHPCP: : sPOINTER TO H.W. QUES. 
002016 027754 .WORD LSHARD 
002020 LSSPCP: : :POINTER TO S.W. QUES. 
002020 030062 .WORD LSSOFT 
002022 LSHPTP: : ;PTR. TO DEF. H.W. PTABLE 
002022 002174 .WORD LUSH 
002024 LSSPTP:: ;PTR. TO S.W. PTABLE 
002024 002204 .WORD LSSW 
002026 LSLADP: : ;DIAG. END ADDRESS 
002026 032004 .WORD LSLAST 
002030 LSSTA:: sRESERVED FOR APT STATS 
002030 000000 -WORD O 
002032 Lsco:: 
002032 000000 -WwORD O 
002034 LSOTYP:: sDIAGNOSTIC TYPE 
002034 000001 . WORD 1 
002036 LSAPT:: ;APT EXPANSION 
002036 000000 -WORD O 
002040 LSOTP: : ;PTR. TO DISPATCH TABLE 
002040 002124 .WORD LSOISPATCH 
002042 LSPRIO:: :DIAGNOSTIC RUN PRIORITY 
002042 000000 .WORD O 


002044 LSENVI: : sFLAGS DESCRIBE HOW IT WAS SETUP 
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LSExXPI:: 
LSMREV:: 


LSETP:: 
LSICP:: 
LSCCP: : 
LSACP:: 
LSPRT: : 
LSTEST:: 
LSOLY:: 
LSHIME: : 


NZ 


;EXPANSION WORD 
;SVC REV AND EDIT @ 


;DIAG. EVENT FLAGS 


; POINTER TO DEVICE TYPE LIST 
sPTR. TO REPORT CODE 


:PTR. TO ADD UNIT CODE 

:PTR. TO OROP UNIT CODE 

sLUN FOR EXERCISERS TO FILL 
POINTER TO DIAG. DESCRIPTION 
;GENERATE SPECIAL AUTOLOAD EMT 
sPOINTER TO ERRTBL 

;PTR. TO INIT CODE 

;PTR. TO CLEAN-UP CODE 

;PTR. TO AUTO CODE 

;PTR. TO PROTECT TABLE 

; TEST NUMBER 

;DELAY COUNT 

3PTR. TO HIGH MEM 


ow 
<a-< 
mae 


SEESRESE TERRES ESSER 


AM HEADER AND TABLES 


PROGR 
DISPATCH TABLE 


St 


123 
065 
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-SBTTL DISPATCH TABLE 


: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TES!. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


tie 
DISPATCH 5 
LSDISPATCH:: 


-SBTTL OESCRIPTIVE TEXT 


3¢¢ 
32 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND 


DESCRIPT 
LSDESC:: 


DEvTYP 
LSOVTYP:: 


5555 § 


<DATA RELIABILITY TEST> 


<TSVO5> 


THE DEVICE UNDER TES 


/DATA RELIABILITY TE 


/TSvOS/ 
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DEFAULT HARDWARE P TABLE 
aa .SBTTL DEFAULT HARDWARE P- TABLE 
99 
10¢ 3°°¢ 
101 ; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
102 ; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
108 ; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. | 
104 3-- 
105 
106 002172 BGNHW «OFPTBL | 
002172 000003 .WORD L10000-L $Hw2 
002174 L SH: 
002174 DFPTBL : 
107 
108 
109 002174 172520 .WORD 172520 :TSOB ADDRESS. 
110 002176 000224 “WORD 224 ;VECTOR ADORESS. 
11 002200 000000 “wORD 0 ;ORIVE @0 FOR DEFAULT 
11 
113 002202 ENOHW 
002202 10000: 
114 
115 
116 
117 \SBTTL SOFTWARE P-TABLE 
19 
gee 
120 ; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
121 ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
gre 
123 
124 002202 BGNSW  SFPTBL 
002202 000051 .WORD 10001-L$Sw/2 
002204 LSSwW:: 
wos 002204 SFPTBL: : 
132 002204 001 CLRFLG:: .BYTE 1 :CLEAR COUNTERS FLAG. 
133 002205 000 RRANV:: .BYTE 0 RESET RANDOM VARIABLES EACH PASS FLAG. 
134 002206 000 :: .BYTE O SHALT AFTER EACH COMMAND FLAG. 
135 002207 000 VER:: .BYTE 0 sENABLE RECOVERABLE ERROR PRINTS FLAG. 
136 002210 001 BADTSW:: .BYTE 1 1BAD TAPE SWITCH TO REWRITE ON SAME SPOT & DETECT BAD TAPE 
137 002211 000 .BYTE 0 + SPARE 
138 002212 000 DINT:: .8YTE 0 ;DISABLE INTERRUPTS FLAG. 
139 002213 000 IREC:: .B8YTE 0 sINHIBIT ERROR RECOVERY FLAG. 
140 002214 000 CHGFLG:: .BYTE 0 sCHANGE CMD SEQ TABLE FLAG. 
141 002215 000 YTE 0 3SP 
142 002216 000 PIRE:: .BYTE 0 iTwaTBiT RESIDUAL FRAMECOUNT ERROR REPORT FLAG. 
143 002217 000 "BYTE 0 
144 002220 CHAR:: CH.EAI ICHARACTERISTICS CODE (DEFAULT = 40). 
145 002222 000015 CMDD:: .WORD 13. sCOMMAND 2 (DEFAULT = REWIND). 
146 002224 000001 “WORD 1 IBYTE COUNT 
147 002226 000001 “WORD 1 ;NUMBER OF OPERATIONS 
148 002230 000007 "WORD RANP iPATTERN 
149 002232 000004 “WORD 4 ;COMMAND 3 (DEFAULT = WRITE) 
150 002234 004000 "WORD DATCNT IBYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
151 002236 076400 “WORD 32000. INUMBER OF OPERATIONS (DEFAULT = 32000). 
152 002240 000007 "WORD RANP SPATTERN (DEFAULT = RANDOM). 
153 002242 000003 "WORD 3 ‘COMMAND 4 (DEFAULT = READ REV). 
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.WORD DATCNT 
-WORD 32000. 
.WORD RANP 
-WORD 2 
-WORD ODATCNT 
-WORD 32000. 
.WORD RANP 
-WORD 13. 
-WORD 1 
-WORD 1 
.WORD RANP 
-WORD 27. 
.WORD ODATCNT 
. WORD 
.WORD RANP 
-WORD 27. 
-WORD ODATCNT 
-WORD 32000. 
.WORD RANP 
TS1MD:: .WORD 1 
ROBUF:: .WORD 0 
WIBUF:: .WORD 0 
HSSW:: .WORD 0O 
EXTFEA::.WORD O 
BENBSW::.WORD 0 
ENOSW 
L10001: 
ENDMOD 


D4 


sBYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
sNUMBER OF OPERATIONS (DEFAULT = 32,000). 
;PATTERN (DEFAULT = RANDOM). 

sCOMMAND S (DEFAULT = READ FWD). 

iBYTE COUNT (DEFAULT © MAX BUFFER SIZE). 
sNUMBER OF OPERATIONS (DEFAULT = 32,000). 
:PATTERN (DEFAULT =» RANDOM). 

sCOMMAND 6 (DEFAULT = REWIND). 

iBYTE COUNT 

sNUMBER OF OPERATIONS 

sPATTERN 

sEND OF CMD SEQ TABLE CODE (DEF) OR CMD 7 
iBYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
sNUMBER OF OPERATIONS (DEFAULT = 32000). 
;PATTERN (DEFAULT * RANDOM). 

sEND OF CMD SEQ TABLE CODE (DEF) OR CMO 8 
iBYTE COUNT (DEFAULT » MAX BUFFER SIZE). 
sNUMBER OF OF OPERATIONS (OEFAALT = 32000). 
:PATTERN (OEFAULT = RANDOM). 

sDEFAULT SWITCH SETTING 

sENABLE READ BUFFERING 

sENABLE WRITE BUFFERING 

sRUN AT 100IPS SWITCH 

sEXTENDED FEATURES SOFTWARE SW O=OFF;1=0N 
sBUFFER ENABLE SOFTWARE SW O=OFF;1=0N 


SEQ 0042 
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SOFTWARE P-TABLE 


2 
214 002326 


TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 
ee 
; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST. 
| diag 
EQUALS 
3 
; BIT DIFINITIONS 


; 
; EVENT FLAG DEFINITIONS 
; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


é 
EF .START== 32. START COMMAND WAS ISSUED 
EF .RESTART== 31. RESTART COMMAND WAS ISSUED 


A NEW PASS HAS BEEN STARTED 
A POWER-FAIL/POWER-UP OCCURRED 


EF .NEW== 29. 
EF .PWR== 28. 
3 


5 
s; PRIORITY LEVEL DEFINITIONS 


é 
PRIO7== 340 
PRIO6== 300 


; 
; 
EF .CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
; 
; 





GLOBAL 
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GLOBAL EQUATES SECTION 


PRIOS== 240 


PRIO4== 200 
PRIO3== 140 
PRIO2== 100 
PRIO1== 40 
PRIOO== 0 

3 

sOPERATOR FLAG BITS 
é 

EVL== a 
LOT== 10 
ADR== 20 
ID0U== 40 
ISR== 100 
UAM== 200 
BOE== 400 


PNT== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


; REGISTER USAGE. 


; 

; RO - PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR. 
; Ri - COMMAND SEQUENCE TABLE POINTER. 

; R2 - GENERAL PURPOSE REGISTER. 

; R3 - PURPOSE REGISTER. 

; R4 - RAL PURPOSE REGISTER. 

; RS - CURRENT LOGICAL DEVICE NUMBER X 2. 

3 R6 - STACK POINTER. 

; R7 - PROGRAM COUNTER. 


SEQ 0044 
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GLOBAL EQUATES SECTION 


SEQ 0045 


| 
| 
236 ;THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS. 
237 
238 100000 TS.SC==100000 :SPECIAL CONDITION BIT. 
239 040000 TS. UPE==40C00 ;UNIBUS PARITY ERROR 
240 020000 TS. SPE==20000 ;SERIAL BUS PARITY ERROR. 
1 010000 TS. RMR==10000 sREGISTER MODIFICATION REFUSED. 
242 004000 TS. NXM==4000 sNON-EXISTENT MEMORY. 
243 TS.NBA==2000 sNEED BUFFER ADORESS. 
244 001000 TS.A17==1000 sBUS ADDRESS BIT 17. 
245 000400 TS.A16==400 sBUS ADDRESS BIT 16. 
| 246 000200 TS. SSR*=200 sUNTT READY BI 
| 247 000100 TS.OFL*=100 LINE. 
248 177717 TSC.FCC##177717 SFATAL CLASS CODE MASK. 
249 177761 TSC. TCC##177761 ; TERMINATION CLASS CODE MASK. 
| 251 ;THE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 
253 100000 ACK .C==100000 EDGE 
254 040000 CVC.C==40000 sCLEAR VOLUME CHEC 
255 020000 OPP .C==20000 sOPPOSITE BIT 
256 010000 SWB .C==10000 sSHAP BYTE BIT 
257 004000 MOD . C3==4000 sMODE BIT 
258 004000 BRF .C==4000 BY TE/RECORD/FILE COUNT FLAG BIT. NOT USED 
259 sB8Y TSOS BUT USED INTERNALLY BY THIS PROGRAM ONLY. 
260 002000 MOD. C2==2000 sMODE BIT 2 
261 001000 MOD. C1==1000 sMODE BIT 1 
MOD . CO==400 sMODE BIT 0 
263 000200 IE .C==200 s INTERRUPT ENABLE 
264 000100 FMT.C1*=100 sFORMAT BIT 1 
265 000100 VFY.C==100 ;WRITE VERIFY FLAG BIT. INTERNAL USE ONLY. 
266 sNOT USED BY TSOS. 
| 267 000040 FMT.CO==40 iFORMAT BIT 0. 
268 000040 JMP.C==40 ;JUMP BIT-TO DIRECT THIS PROGRAM TO JUMP TO 
269 1A CERTAIN LOCATION IN THE COMMAND SEQUENCE 
270 sTABLE. INTERNAL USE ONLY 
271 000020 CMD.C4==20 sCOMMAND BIT 4 
272 000020 DLY.C==20 sINSERT DELAY. INTERNAL USE ONLY. 
273 000010 CMD.C3==10 sCOMMAND BIT 3 
274 000004 CMD.C2==4 sCOMMAND BIT 2 
275 000002 CMD.Ci==2 sCOMMAND BIT 1 
276 000001 CMD.CO==1 ;COMMAND BIT 0 
278 ;BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 
280 000200 CH.ESS==200 sENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT). 
| 281 000040 CH.EAI==40 sENABLE ATTENTION INTERRUPTS. 
282 000020 CH.ERT==20 ;ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
| 283 000040 OF TSCH==CH. EAI ;DEFAULT CHARACTERISTICS CODE. 
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GLOBAL EQUATES SECTION 
285 
286 sBIT DEFINITIONS FOR EXTENDED CONTROL WORD 
287 
288 000040 EF .HSS*=40 sENABLE HIGH SPEED SELECT 
289 000030 EF .RWB==30 sENABLE BOTH READ & WRITE BUFFERING 
290 000020 EF .RBO==20 sENABLE READ BUFFERING ONLY 
291 
292 sTHE FOLLOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS 
293 sIN THE MESSAGE BUFFER. 
294 
| 295 000004 MS .RFC==4 sRESIDUAL FRAME _ 
296 000006 MS .XSO==6 sEXT STATUS REG 
297 000010 MS.XS1*=10 sEXT STATUS REG 1 
298 000012 MS.XS2**12 sEXT STATUS REG 2 
299 000014 MS .XS3==14 sEXT STATUS REG 3 
coe 000016 MS .XS4==16 sEXT STATUS REG 4 
aoe 3; THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0. 
304 100000 XO. TMK==100000 s TAPE MARK. 
305 040000 X0.RLS==40000 sRECORD LENGTH SHORT. 
| 306 020000 Xx0.LET==20000 sLOGICAL EOT. 
307 010000 X0.RLL==10000 ;RECORD LENGTH LONG. 
308 000100 X0.ONL==100 sON LINE BIT 
309 000004 XO.WLK==4 ;WRITE LOCK BIT 
310 000002 X0.BOT==2 s60T BIT. 
zs 000001 x0.EOT==1 sEOT BIT. 
os ; THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2. 
315 100000 X2.OPM==100000 sCPERATION IN PROGRESS, TAPE MOVING 
316 000200 X2.EFE==200 sEXTENDED FEATURES ENABLED 
oH 000100 X2.BFE==100 sBUFFERING ENABLED 
os 3; THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 
321 000010 X3.0CK==10 sDENSITY CHECK. 
4 157400 X3.RNY=*157400 sCAPSTAN RUNAWAY UDIAG ERROR CODE. 
4 sTHE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4. 
326 100000 X4.HSS==100000 sHIGH SPEED SWITCH INDICATING 100IPS 
od 040000 X4.RCE== 40000 sRETRY COUNT EXCEEDED 
329 
330 sTHE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
os sPACKET ENTRIES. 
333 000000 CP.CMD==0 sCMDPKT+O==TSOS COMMAND. 
334 000002 -ADL==2 sCMOPKT+2**BUFFER ADDRESS LOW. 
335 000004 CP. ADH==4 sCMOPKT+4=*BUFFER ADORESS HIGH. 
336 000006 CP.CNT==6 sCKDPKT +6==BYTE/FILE/RECORD COUNT 
i 
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GLOBAL EQUATES SECTION 


000340 
000012 


000020 
000020 
004000 


177740 
000007 


000020 
153624 
032561 
177774 
177740 
100013 
104001 
104401 
104005 
104105 
104010 
104410 
105401 
125401 
105001 


125001 


105005 


sMISCELLANEOUS DEFINITIONS. 


INTPRI==PRIO7 sPRIORITY TO BE USED IN INTERRUPT STATE. 

SCHCNT#=*12 sARBITRARY BYTE LENGTH FOR CHARACTERISTIC 
sBUFFER LENGTH. CEVEN @) 

MSGCNT ==20 sMESSAGE BUFFER LENGTH IN BYTES. — @) 

DIACNT==20 ;DIAGNOST IC COMMAND BUFFER EXTENT 

DATCNT==2048. sMAXIMUM RECORD LENGTH IN ores 


sTHIS COUNT SHOULD BE A MULTIPLE OF 256 TO INSURE 
sPROPER READ/WRITE sn 1 nen BY THE SUPER. 


RNOPSC=*177740 sRANDOM @ OF OPERATI 
RANP==7 sCODE TO SELECT RANDOM PATTERN 
RRECL=916. sREAD RECOVERY ATTEMPT LIMIT. 
WRECL==16. SWRITE RECOVERY ATTEMPT LIMIT. 
ne a og sCONSTANT USED TO RESET RANDOM ® GENERATOR BASE. 
C==3256 oo TANT USED TO RESET RANDOM @ SAVE LOCATION. 
NIMUSE==177774 T_IN USE CODE FOR DEVICE STATE TABLE 
NCMD.C==ACK.C!CvC.C!0PP.C!Swe. c1n00. C3!M00.C2!M00. tet CONTE.C!FMT.C1!FMT.CO 
sNOT “COMMAND” BITS 


3; THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TSOS COMMAND. 
ORI== ACK.C!CMD.C3!CMD.C1!CMD.CO 


sORIVE INIT. 
ROF== ACK.C!IBRF.C!CMD.CO 

;READ FORWARD 
ROR== ACK.C!BRF.C!MOD.CO!CMD.CO 

sREAD REVERSE 


WRT== ACK.C!BRF.C!CMD.CO!CMD.C2 
sWRITE COMMAND 


WIV== ACK.C!IBRF.C!VFY.C!CMD.CO!CMD.C2 
sWRITE VERIFY 


SRF== ACK.C!IBRF.C!CMD.C3 
sSPACE RECORD FORWARD 


SRR== ACK.CIBRF.C!M0D.CO!CMD.C3 
sSPACE RECORD REVERSE 


RNR== ACK.C!IBRF.C!MO0.C1!MO0D.CO!CMD.CO 
sREAD REV RETRY1 - REREAD NEXT REVERSE, IE. SPACE FWD, READ REVERSE 


RNF== ACK.C!IBRF .C!OPP.C!M0D.C1!MOD.CO!CMD.CO 


;READ REV RETRY2 - REREAD NEXT FORWARD, IE.READ FORWARD, SPACE REVERSE 


RPF== ACK.C!IBRF.C!MOD.C1!CMD.CO 


sREAD FWD RETRY1 - REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, READ FORWARD 


RPR==  ACK.CIBRF.C!OPP.C!MOD.C1!CMD.CO 


sREAD FWO RETRY2 - REREAD PREVIOUS REVERSE, IE. READ REVERSE, SPACE FORWARD 


WRR== ACK.C!MOD.C1!BRF.C!CMD.C2!CMD.CO 





= 
£ 


437 177777 END== 177777 sEND OF COMMAND SEQUENCES 
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GLOBAL EQUATES SECTION 
395 sWRITE RETRY 
396 
397 102010 RWD== — ACK.C!MOD.C2!CMD.C3 
398 sREWIND COMMAND 
399 
400 100012 MBR== — ACK.C!CMG.C3!CMD.C1 
401 MESSAGE BUFFER RELEASE 
402 
403 100011 WTM== — ACK.C!CMD.C3!CMD.CO 
404 :WRITE TAPE MARK. 
405 
406 101011 WTR== —ACK.C!MOD.C1!CMD.C3!CMD.CO 
407 iWRITE TAPE MARK RETRY. 
408 
409 105010 SFF==  ACK.C!@RF.C!MOD.C1!CMD.C3 
410 sSPACE FILE FORWARD 
1 
412 105410 SFR== ACK. C!BRF.C!MOD.CO!MOD.C1!CMD.C3 
415 :SPACE FILE REVERSE 
415 100017 GES*=  ACK.C#CMD.CO!CMD.C1!CMD.C2!CMD.C3 
416 :GET EXTENDED STATUS 
418 100411 ERS== ACK.C!MOD.CO!CMD.C3!CMD.CO 
419 sERASE 3 INCHES OF TAPE 
421 100412 UNL== — ACK.C!MOD.CO!CMD.C3!CMD.C1 
422 sUNLOAD COMMAND 
424 101012 CLN==  ACK.C!MOD.C1!CMD.C3!CMD.C1 
425 sERASE TAPE. 
427 140004 SCH==  ACK.C!CVC.C!CMD.C2 sSET DEVICE CHARACTERISTICS. 
429 140006 WSM== — ACK.C!CVC.C!CMD.C2!CMD.C1 sWRITE SUB-SYS MEM 
431 100006 DIA== ACK.C!CMD.C2!CMD.C1 s:DIAGNOSTICS. 
433 000040 UMP== — JMP.C :JUMP TO “M“TH COMMAND 
435 000020 DLY== DLY.C :DELAY “N” MS. 





GLOBAL AREAS 


454 002340 


459 002344 


465 002350 
466 002352 


470 002354 


MACRO M1113 14-JUN-84 18:32 SEQ 0049 
GLOBAL DATA SECTION 


002330 


-SBTTL GLOBAL DATA SECTION 


see 
; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST. 

3° 


3 COMMAND PACKET 
* <,63>6177774 sMUST BE ON MOD 4 BOUNDRY. 
CMOPKT: : “0 31ST WORD IS TSOS COMMAND. 
0 s2ND WORD IS THE BUFFER LOW ADDRESS. 
0 s3RD WORD IS THE BUFFER HIGH ADDRESS 
0 14TH WORD IS THE BYTE/RECORD/FILE COUNT. 
: GET STATUS COMMAND PACKET. 
. = <,+3>E€177774 sMUST BE ON MOD 4 BOUNDRY. 
GSCPK:: .WORD GES 
F MESSAGE BUFFER RELEASE COMMAND PACKET. 
. = <,+3>€177774 sMUST BE ON MOD 4 BOUNDRY. 
BRCPK:: .WORD MBR 
3 REWIND COMMAND PACKET (USED IN ERROR RECOVERY ONLY) 
= <,+3>€177774 sMUST BE ON MOD 4 BOUNDRY. 
RWCPK:: .WORD RWD 
-WORD 1 
3 WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 
MSGPKT:: .BLKW 8. 31ST WORD:: MESSAGE TYPE. 
32ND WORD:: DATA FIELD LENGTH. 
33RD WORD:: RESIDUAL FRAME COUNT. 
34TH WORD:: XSTATO 
35TH WORD:: XSTAT1 
36TH WORD:: XSTAT2 
37TH WORD:: XSTAT3 
:8TH WORD:: XSTAT4 
3 MESSAGE PACKETS. 
MSGPKO:: .BLKW 8. sMESSAGE PACKET FOR DEVICE #0 
MSGPK1:: .BLKW 8. sMESSAGE PACKET FOR DEVICE 1 
MSGPK2:: .BLKW 8. sMESSAGE PACKET FOR DEVICE #2 
MSGPK3:: .BLKW 8. sMESSAGE PACKET FOR DEVICE 3 
SET CHARACTERISTIC BLOCK. 
SCHBK: : MSGPKO 31ST WORD:: MSGPKT ADDR ~ li UP BY EXCUTE ROUTINE). 
(+) s2ND WORD:: MSGPKT ADDR H 
MSGCNT 33RD WORD:: MSG BUFFER LENGTH (BYTES) 
CH.EAI :4TH WORD:: CHARACTERISTICS WORD(SET BY SETUP ROUTINE). 
i?) 35TH WORD:: HSP € BUFFER CONTROL ON EXT‘'D FEATURES 
F io SUB-SYSTEM MEMORY CHARACTERISTIC » ee 
WSMBK:: O 31ST WORD:: SEL 
0 }2ND WORD:: SEL 2 
0 33RD WORD:: SEL 4 
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GLOBAL 
GLOBAL DATA SECTION 


S512 002560 010050 
513 002562 010056 
514 
515 
516 002564 000000 
517 002566 000000 


530 002604 177774 
531 002606 177774 
S32 002610 177774 
533 002612 177774 
534 002614 177777 


538 002616 003046 
539 002620 003120 
540 002622 003172 
541 002624 003244 


; TSOS REGISTER ADDRESSES. 


TSDB:: .BLKW 4 3TSOS DATA BUFFER ADDRESSES. 
TSSR:: .BLKW 4 3TSOS STATUS poet de ADDRESSES. 
TSVCT:: .BLKW 4 :TSOS VECTOR ADDRESSES. 
TSBA==TSDB sDATA BUFFER ADDRESS REGISTER. 
3 ADDRESSES OF MESSAGE PACKETS. 
MSGPKA:: MSGPKO sDEVICE 0. 

MSGPK1 sDEVICE 1. 

MSGPK2 sDEVICE 2. 

MSGPK3 sDEVICE 3. 
3 ADDRESSES OF INTERRUPT HANDLING ROUTINES. 
TSSINT:: TSSINO s;DEVIC . 

TSSIN1 sDEVICE 1. 

TSSIN2 s;DEVICE 2. 

TSSIN3 :DEVICE 3. 
3 TSOS CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 
TSSCL:: O sDEVICE 0 

0 ;DEVICE 1 

0 sDEVICE 2 

0 sDEVICE 3 

wee EXT. FEA € BUF. ENA SW’‘S, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 
isSSu: : sDEVICE 0 

° sDEVICE 1 

0 sDEVICE 2 

0 sDEVICE 3 


; UNIT NUMBERS OF ALL DEVICES BEING TESTED(1-4). 
; WHEN DEVICE IS NOT IN USE, IT,S LOCATION WILL = -3. 

; RS WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER X 2. 
DEVTBL:: .WORD NINUSE 


-WORD WNINUSE 

-WORD WNINUSE 

-WORD WNINUSE 

-WORD END 
8 BAD TAPE TABLE POINTER: USED BY WRITE RETRY ROUTINE 
; “WRTY” TO LOG BAD TAPE SPOTS ON UNITS UNDER TEST 
BTADDR:: BTO 

BT1 

BT2 

BT3 
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543 : COUNTER AREA, 
544 
545 002626 CNTBGN=. 
546 002626 WRBC:: .BLKW 20 BYTES WRITTEN. 
547 002666 RRBC:: .BLKW 20 sBYTES READ REV. 
548 002726 RFBC:: .BLKW 20 sBYTES READ FWD. 
549 002766 WRREC:: .BLKW 4 sRECOVERABLE WRITE ERRORS. 
550 002776 WRUNR:: .BLKW 4 sUNRECOVERABLE WRITE ERRORS. 
551 RRREC:: .BLKW 4 sRECOVERABLE READ REV ERRORS. 
003016 RRUNR:: .BLKW 4 sUNRECOVERABLE READ REV ERRORS. 
553 003026 RFREC:: .BLKW 4 sRECOVERABLE READ FWDERROAS. 
554 003036 RFUNR:: .BLKW 4 sUNRECOVERABLE READ FWD ERRORS 
555 BTO:: .BLKW 21. :UNIT 0 BAT TAPE SPOT 
003120 BTl:: .BLKW 21. ;UNIT 1 BAT TAPE SPOTS LOG 
557 003172 BT2:: .BLKW 21. :UNIT 2 BAT TAPE SPOTS LOG 
558 003244 8T3:: .BLKW 21. sUNIT 3 BAT TAPE SPOTS LOG 
559 003316 WRTYCT:: .BLKW 4 :WRITE RETRY COUNTER 
3 PASCNT:: .BLKW 4 sPASS COUNT. 
561 003336 SCCNT:: .BLKW 4 :SPECIAL CONDITICN COUNT. 
003346 VFYCNT:: .BLKW 4 :;COUNT OF TSOS DATA COMPARE ERRORS. 
563 003356 T:: .BLKW 4 iC ERRORS . 
564 003366 FTLCNT:: .BLKW 4 :COUNT OF FATAL ERRORS. 
565 003376 CNTEND=. sEND OF STATICTICAL COUNTERS. 
566 003376 RECCNT:: .BLKW 4 sNUMBER OF RECORDS FROM BOT: CLEARED ON REWIND 
567 AND WHEN RESTARTING OR CONTINUING TEST 2. 
368 000550 CNTLEN*=CNTEND-CNTBGN {LENGTH OF STATISTICAL COUNTER AREA, 
570 
571 ; THE FOLLOWING ARE THE DEFINITIONS OF VARIABLES 
372 : USED BY THE PROGRAM. 
574 003406 000000 DATAWT:: .WORD 0 WRITE BUFFER ADORESS. 
575 003406 OIABLK==DATAWT sWRITE BUFFER ALSO USED FOR DIAG CMD. 
576 003410 000000 DATARD:: .WORD © ;READ BUFFER ADORESS. 
577 003412 000000 NCNT:: .WORD 0 sSTORAGE FOR VALUE OF N 
578 003414 000000 NCNT1:: .WORD 0 sTEMP STORAGE FOR VALUE OF N 
579 003416 000000 BRFCNT:: .WORD 0 sSTORAGE FOR BPCR VALLE 
580 003420 177777 CMDWRO:: .WORD END sCONTAINS COMMAND WORD BEING EXECUTED PRESENTLY 
581 003422 177777 CHDSAV:: .WORD END {SAVE LOCATION FOR CHD WORD DURING ERROR RECOVERY 
582 003424 177777 PCHOMD:: .WORD END sCONTAINS PREVOUS COMMAND WORD. 
583 003426 000000 CMDLG:: .WORD 0 sCURRENT COMMAND LOGGING CODE. 
584 003430 000000 LENMSK:: .WORD 0 }RANDOM WRITE LENGTH MASK, TO BE SET UP BY TESTS 
585 003432 153624 RANB:: .WORD 153624 sRANDOM @ GENERATOR BASE. 
586 003434 032561 WORD = 32561 RANDOM @ SAVE LOCATION 
587 003436 000000 TIMEL:: .WORD 0 sTIME COUNT 1. 
588 003440 000000 TIME2:: .WORD 0 sTIME COUNT 2. 
589 003442 000000 JLOOP:: .WORD 0 :JMP COMMAND LOOP COUNT. 
590 000000 OC:: .WORD 0 i JMP COMMAND LOCATION COUNT. 
591 003446 000000 PATERN:: .WORD 0 {PATTERN SELECT CODE. 
003450 000000 CTCC:: .wORD 0 CURRENT TERMINATION CLASS CODE. 
593 003452 000000 RSSAVE:: .WORD 0 :LOCATION FOR SAVING CURRENT DEVICE POINTER. 
003454 000000 TSSREG:: .WORD 0 CURRENT STATUS REGISTER. 
595 003456 000000 WIMFLG:: .WORD 0 :WRITE TAPE MARK FLAG 
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59” ; ERROR FLAG AREA, THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 
598 ; AFTER EACH COMMAND IS COMPLETED. 
$99 
600 003460 LG-. 
601 003460 000000 RETRYC:: .WORD O @ OF RECOVERY ATTEMPTS EXECUTED. 

003462 000 RPTCNT:: .BYTE © ;WRITE REPEAT ON SAME SPOT CNTR: 4 PER WRITE RETRY 
603 005465 000 WATYFG:: .BYTE O sWRITE RETRY ON SAME SPOT IN An ye FLAG 
604 005464 000 WATYER:: .BYTE O sWRITE RETRY ON SAME SPOT ERROR FLAG 
605 003465 000 RECLOG BYTE O sRECORD COUNT HAS BEEN UPDATED FOR THIS ROCORD. 
606 003466 000 ERLOG:: .BYTE 0 SDATA BYTES AND ERRORS HAVE LOGGED FOR THIS RECORD. 
607 003467 000 RWERR:: .BYTE 0 sREAD/WRITE ERROR HAS OCCURED. 
608 003470 000 UNREC:: .BYTE 0 sUNRECOVERABLE ERROR HAS OCCURED. 
609 003471 000 ERRREC:: .BYTE 0 sERROR RECOVERY MODE. 
610 
611 003472 ENDERF =. 
é13 
oe ; ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 

1 

616 003472 INTFLG:: .BLKW 4 s INTERRUPT OCCURRED FLAGS FOR EACH DEVICE 
617 003502 EOTFLG:: .BLKW 4 sEOT/BOT FLAGS FOR EACH DEVICE (XSTATO). 
616 003512 000000 BTPT:: -WORD 0 sBAD TAPE SPOT POINTER TO BTO-BT3 VIA BTADOR 
619 003514 000 EXPBOT:: .BYTE O :80T IS EXPECTED, DO NOT ABORT ON BOT/FUNC ATI. 
620 003515 000 RANDOM:: .BYTE O ;RANDOM EVERYTHING FLAG. 
621 003516 000 VFYFLG:: .BYTE O sSET OURING WRITE/VERIFY COMMAND. 
622 003517 000 RPTFLG:: .BYTE O sPERFORMANCE REPORT HAS BEEN REQUESTED. 
623 003520 000 SWOFLG:: .BYTE 0 sENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZERO. 
624 003521 000 IRE : : BYTE 0O SINMIBIT RESIDUAL FRAME COUNT ERROR REPORT. 
625 003522 000 DROPED:: .BYTE O sCURRENT UNIT HAS BEEN DROPPED 
626 003523 000 TiSWB:: .BYTE O ;TESTI SWAP BYTES FLAG 
627 003524 000 ALLEOT:: .BYTE O sALL UNITS @ EOT FLAG 
626 00 000 ERSFLG:: .BYTE 0 sERASE FLAG: DO ERASE AFTER A SPACE REV TO DELETE 
629 sBADLY WRITTEN RECORD. 1 TO 4 ERASES LEAVING 
630 3A 3 TO 12 INCH GAP MAY RESULT. 
631 -EVEN 
re 003526 ENDFLG=. 
4 ; ADDITIONAL FLAGS, THESE FLAGS ARE CLFSRED ONLY AFTER BEING CHECKED. 
636 003' 000 STAFLG:: .BYTE O sSTART FLAG - SET BY INIT CODE IF STARTING. 
637 003527 000 PWRFLG:: .BYTE O sPOWER FAILURE FLAG - SET ONLY DURING INIT. 
638 003530 000 TRAPD4:: .BYTE 0 sTRAPED AT 4 FLAG 
639 003531 000 MISCFG:: .BYTE O sMISCELLANEOUS FLAG 

003532 000000 TSUNT:: .WORD 0 sNUMBER OF THE UNIT — TEST PLUS HSSPEBUF 
= 003534 000000 TSNP ; -WORD O ;FOR PRINT OUT UNIT @ ONLY 
643 ; OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD 
io. ; SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 
— 003536 000000 OPFLAG: : — 0 sREAD ONLY OPERATOR FLAG WORD 

. Vv 
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649 sTHE FOLLOWING IS THE COMMAND SEQUENCE TABLE. THE TABLE | 
650 sHAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES | 
651 sCAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 
652 
653 003540 140004 CMOSEQ:: .WORD SCH sSET CHARACTERISTICS. 
654 003542 000040 .WORD CH.EAI 
655 003544 000001 . WORD 
656 003546 000000 .WORD 0 
657 003550 102010 CMOSE2:: .WORD RWD sREWINO. | 
658 003552 000001 .WORD 1 sBYTE COUNT. 
659 003554 000001 WORD 1 s ONCE. 
660 003556 000007 .WORD  RANP sPATTERN. 
661 003560 104005 .WORD oWRT sWRITE. 
662 003562 004000 .WORD DATCNT ;MAX BUFFER LENGTH. | 
663 003564 076400 .WORD 32000. 332,000 RECORDS. 

3566 000007 .WORD  RANP sRANDOM PATTERN. 

665 003570 104401 .WORD ROR sREAD REV. 
666 003572 .WORD DATCNT 3MAX BUFFER LENGTH. 
667 003574 076400 .WORD 32000. 332,000 RECORDS 
668 003576 000007 .WORD RANP sRANDOM PATTERN. 
669 003600 104001 .WORD ROF sREAD FWD. 
670 003602 .WORD DATCNT 3MAX BUFFER LENGTH. 
671 003604 076400 .WORD 32000. 332,000 RECORDS. 
672 003606 000007 .WORD  RANP sRANDOM PATTERN. 
673 003610 102010 .WORD RWD sREWIND. 
674 003612 000001 .WORD 1 iBYTE COUNT. 
675 003614 000001 .WORD 1 s ONCE . 
676 003616 000007 .WORD  RANP sPATTERN. 
677 003620 .BLKW 40. sEXTENSTION TO DOUBLE BUFFER SIZE 
678 003740 177777 SEQEND:: .WORD END sSOFT END OF SEQUENCE TABLE. 
679 003742 177777 .WORD END 
680 003744 177777 .WORD ND 
681i 003746 177777 . WORD 
682 003750 177777 .WORD END sHARD END OF SEQUENCE TABLE. 
oss sTHE FOLLOWING IS THE TSO COMMAND TABLE 
685 003752 100013 CMDTBL:: .WORD ORI sORIVE INIT. 
686 003754 104001 .WORD ROF sREAD F . 
687 003756 104401 .WORD ROR sREAD REVERSE. 
688 003760 104005 .WORD WRT sWRITE 
689 003762 104105 .WORD  WTV sWRITE/VERIFY. (WRITE ALL RECORDS, ROR AND 
690 sCHECK DATA ON ALL RECORDS, ROF AND 
691 sCHECK DATA ON ALL RECORDS. ) 
692 003764 104010 -WORD SRF sSPACE “N” RECORDS FORWARD. 
693 003766 104410 .WORD SRR sSPACE “N” RECORDS 
694 003770 105401 .WORD RNR sREAD NEXT REVERSE. i. E., SPACE FWD, READ REVERSE. 
695 003772 125401 .WORD RNF sREAD NEXT FORWARD, I.€., READ FORWARD, SPACE REVERSE. 
6% 003774 105001 .WORD RPF sREAD PREVIOUS FORWARD. I.€., SPACE REVERSE, READ FORWARD 
697 003776 125001 .WORD RPR sREAD PREVIOUS REVERSE. I.E., READ REVERSE, SPACE FORWARD 
698 004000 .WORD WRR sWRITE RETRY. 
699 004002 102010 .WORD RW ;REWIND. 
700 004004 100012 .WORD MBR sMESSAGE BUFFER RELEASE 
701 004006 100011 .WORD WTM ;WRITE TAPE MARK 
702 004010 101011 .WORD WTR ;sWRITE TAPE MARK RETRY. 
703 004012 10501 .WORD SFF :SPACE “N” FILES FORWARD. 
704 004014 105410 .WORD SFR sSPACE “N” FILES REVERSE. 
705 004016 100017 .WORD GES sGET EXTENDED STATUS. 
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706 004 100411 -WORD ERS sERASE 3 INCHES OF TAPE. 

707 004022 100412 -WORD UNL sREWIND AND UNLOAD. 

708 004024 101012 -WORD CLN sCLEAR TAPE, 

709 004026 140004 -WORD SCH sSET CHARACTERISTICS. 

710 004030 100006 -WORD OIA sOIAGNOSTIC COMMAND. 

711 004032 000040 -WORD = JMP 3 JUMP TO THE NTH COMMAND IN THE SEQUENCE. 

712 004034 000020 -WORD OLY {DELAY “N” MS, 

713 004036 177777 -WORD END sEND OF COMMAND TABLE 

714 

715 : THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND. 

716 

717 004040 104 122 111 CMDASC:: .ASCII /ORI/ sORIVE INIT. 

718 0040435 122 104 106 ASCII /ROF/ sREAD FORWARD. 

719 004046 122 104 122 ASCII /ROR/ yREAD REVERSE. 

720 004051 127 122 124 -ASCII /WRT/ sWRITE 

721 004054 127 124 126 -ASCII /WTV/ iWRITE/VERIFY. (WRITE ALL RECORDS, ROR AND CHECK DATA 
s0N ALL RE » ROF AND CHECK DATA ON ALL RECORDS. ) 

723 004057 123 122 106 -ASCII /SRF/ sSPACE “N” REC F 

724 004062 123 122 122 -ASCII /SRR/ SPACE “N” REC REVER 

725 004065 122 116 122 -ASCII /RNR/ sREAD NEXT REVERSE. I.E., SPACE FWO READ RE 

726 004070 122 116 106 «ASCII /RNF/ sREAD NEXT Kenge S I.€., . SP VERSE 

727 004073 122 120 106 -ASCII /RPF/ sREAD PREVI » SPACE REVERSE, READ F 

728 004076 122 120 122 -ASCII /RPR/ sREAD gn REVERSE. IE., READ REVERSE, SPACE FORWARD 

729 004101 127 122 122 -ASCII /WRR/ sWRITE 

730 004104 122 127 104 ASCII /RWD/ sREWIND. 

731 004107 115 102 122 -ASCII /*BR/ sMESSAGE or cee RELEASE 

732 004112 127 124 115 ASCII /WTM/ sWRITE TAPE MARK 

733 004115 127 124 122 ASCII /WTR/ sWRITE TAPE MARK RETRY. 

004 123 106 106 ASCII /SFF/ sSPACE “N” FILES FORWARD. 

735 004123 123 106 122 ASCII /SFR/ sSPACE “N” FILES REVERSE. 

736 004 107 105 123 -ASCII /GES/ sGET EXTENDED STATUS. 

737 004131 105 122 123 -ASCII /ERS/ sERASE 3 INCHES OF TAPE 

738 004134 125 116 114 ASCII /UNL/ yt a UNLOAD 

739 004137 103 114 116 -ASCII /CLN/ sCLEAN 

740 004142 123 103 110 -ASCII /SCH/ sSET CHARACTERISTICS. WHERE BRF=200, 40, 20, 0. 

741 sSEE TSVOS,/TSOS PROGRAMMING SPECIFICATION FOR DESCRIPTION. 

742 004145 104 111 101 ASCII /OIA/ sOIAGNOSTICS. SEE TSVO5S/TSOS PROGRAMMING SPECIFICATI 
sFOR DESCRIPTION. ODT MUST BE USED TO LOAD DIAGNOSTIC DATA 
sINTO THE egg ee BEFORE THIS CMD IS ISSUED. 

745 004150 112 115 120 -ASCII /JMP/ 1 JUMP TO THE NTH COMMAND IN THE COMMAND 

746 sSEQUENCE TABLE, WHERE N IS DEFINED IN 

747 sTHE @ OF OPERATIONS. 

748 004153 104 114 131 -ASCII /OLY/ sDELAY “N” MS, Be N IS DEFINED IN 

749 sTHE @ OF OPERATIONS. 

en 004156 105 116 104 — /END/ sEND OF COMMAND SEQUENCE. 
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754 .SBTTL GLOBAL TEXT SECTION 
rs 
ze 
757 3 THE GLOBAL TEXT = i CONTAINS FORMAT STATEMENTS, 
758 3 aie tear AND ASCII INFORMATION THAT ARE USEN IN 
759 3: MORE THAN ONE TEST 
760 }*- 
761 
762 
769 ; 
770 : FORMAT STATEMENTS USED IN PRINT CALLS 
771 H 
772 
tos -NLIST BEX 
774 
775 004162 045 116 045 CODELM:: .ASCIZ /SNSAUNIT #018A TSOS CODE LEVEL sO38NsN/ 
ha 004231 045 116 045 SWSET:: c~ oy /SNSAUNIT 6D18A TSOS SWITCH SETTINGS s038NSN/ 
778 004306 130 130 130 WHALTM:: .ASCIZ /XXX CMD - TYPE he TO CONTINUE/ 
779 004346 103 115 104 83 — /CMD PACKET ADR NOT ON MODULO 4 BOUNDARY: RELOAD! / 
781 004430 104 101 124 WTVERM:: .ASCIZ /DATA COMPARE ERROR/ 
782 004453 116 117 040 TOERM:: .ASCIZ /NO TSVO5 RESPONSE/ 
783 004475 125 116 104 SCERM:: IZ C COND/ 
764 004521 122 106 103 RFCERM:: .ASCIZ /RFC NON 
785 004536 124 123 126 NSSRM:: .ASCIZ /TSVOS NOT READY/ 
786 004556 122 105 124 RLEXM:: .ASCIZ pm diol LIMIT EXCEEDED/ 
787 004603 104 122 111 ATTNM:: .ASCIZ /ORIVE OFF LINE/ 
788 004622 106 125 116 :: .ASCIZ /FUNCTION REJECT/ 
789 004642 106 101 124 FATSM:: .ASCIZ /FATAL SUBSYSTEM ERROR/ 
790 004670 116 117 040 NOINTM:: .ASCIZ /NO INTERRUPT/ 
791 004705 124 101 120 TSAM:: ASCIZ /TAPE snag ALERT/ 
792 004727 124 117 117 TOOMM:: .ASCIZ /TOO MANY INTERRUPTS/ 
793 004753 103 101 120 RNYM:: .ASCIZ /CAPSTAN RUNAWAY-GET STATUS RESULTS:/ 
794 005017 122 105 103 RERM:: .ASCIZ /RECOVERABLE ERROR/ 
795 005041 125 116 122 URERM:: .ASCIZ /UNRECOVERABLE ERROR/ 
796 005065 045 116 045 DROPDM:: .ASCIZ /SNSADROPPED UNIT #D1SN/ 
797 005114 045 116 045 AUDRPM:: .ASCIZ /SNSAALL UNITS 
798 005146 045 116 045 AUDRUN:: . Z /9BADIAGNOSTIC ONLY SUPPORTS ONE CONTROLLERSNSN/ 
045 116 045 OTAER2:: .ASCIZ “SNSABYTE : SD4SS2SAWAS : SBESSOKAS /B : SBEEN” 
0052 045 104 064 OTAERS:: .ASCIZ “SD48A BYTES IN ERROR OUT OF #D4eN"” 
801 005337 045 101 116 OTAER4:: /@ANO DATA READSN/ 
005360 045 101 122 OTAERS:: .ASCIZ /SARECORD TOO LONG: — BYTESSN/ 
803 005422 045 101 122 WURTY1:: .ASCIZ arrest gan ON RETRY @8028N/ 
005456 045 101 104 OFLINM:: .ASCIZ /SADRIVE #D18A OFF LINESN/ 
805 005507 045 101 107 GETSTM:: .ASCIZ /SAGET ses - RESULTS: sN/ 
806 005543 045 116 045 NODEV:: .ASCII /sNSABUS TR T sO068N/ 
807 005570 045 101 111 -ASCIZ EAINTERFACE BAD OR TSOB NOT SET TO ABOVE ADDRESSSN/ 
808 005653 040 052 052 UNIWK: .ASCIZ / seeeeTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORSseeee/ 
005741 045 116 000 CRLF:: .ASCIZ /sN/ 
810 005744 045 116 045 CRLFSP:: .ASCIZ /sNSS7/ 
811 LIST BEX 
812 EVEN 





ES 


006134 012746 006436 MOV @STAER1, -( SP) 
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814 .SBTTL GLOBAL ERROR REPORT SECTION 
815 
816 _~— 
817 ; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
818 ; THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
819 ; THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 
820 i= 
821 
822 
823 005752 BGNMSG DTAERM 
005752 OT i 
829 005752 DATERM: :PRINTB @STAER1, TSNP,PASCNT(RS),RECCNT(RS) 
005752 016546 003376 MOV RECCNT(RS), -(SP) 
| 005756 016546 003326 MOV PASCNT(RS). -(SP) 
005762 016746 175546 MOV TSNP, -(SP) 
| 005766 012746 006436 MOV @STAER1, -(SP) 
| 005772 012746 MOV 04, -( 
005776 01 MOV 
006000 104414 TRAP = C$PNTB 
006002 062706 000012 ADD #12,SP 
830 006006 PRINTB #STAER7 
| 006006 012746 006530 MOV @STAER7T, -(SP) 
006012 012746 000001 MOV #1, -(SP) 
006016 010600 MOV SP RO 
006020 104414 TRAP  CSPNTB 
006022 062706 000004 ADD 04,SP 
831 006026 010267 001034 MOV R2,RECRED ;SAVE R2 
832 006032 010367 175400 MOV R3, TIMEL ;SAVE R3 
833 006036 010467 175376 MOV R4. TIMED ;SAVE R4 
834 006042 004767 002016 JSR PC,RECTAP ;RETRIEVE RECORD READ 
| 835 006046 016702 001014 MOV —s- RECRED, R2 RESTORE R2 
836 006052 010367 001010 MOV R3,RECRED 3SAVE RECORD READ 
837 006056 016703 175354 MOV TIME1,R3 ;RESTORE R3 
| 838 006062 016704 175352 MOV TIME2.R4 ;RESTORE R4 
839 006066 PRINTB @STAER6,RECRED ;PRINT RECORD READ 
| 006066 016746 000774 MOV _—s RECRED. -( SP) 
006072 012746 006562 MOV @STAERG, -( SP) 
006076 012746 000002 MOV @2,-(SP) 
006102 010600 MOV SP.RO 
006104 104414 TRAP C$PNTB 
006106 062706 000006 ADD 06, SP 
840 006112 EXIT MSG 
006112 000167 .WORD J$UMP 
006114 "WORD 110002-2-. 
| 841 .EVEN 
842 
843 006116 ENOMSG 
006116 L10002: 
ne 006116 104423 TRAP = C$MSG 
845 006120 BGNMSG STAERM 
006120 STAERM: : 
| 846 006120 STAERM::PRINTB #STAER1, TSNP,PASCNT(RS),RECCNT(RS) 
| 006120 016546 003376 MOV RECCNT(RS), -(SP) 
006124 016546 003326 MOV PASCNT(RS), -(SP) 
006130 016746 175400 MOV TSNP, -(SP) 
| 
| 


| 
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857 


326 
858 006332 
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012746 


012746 


000004 


000012 


006530 
000001 


000004 
174130 
177740 


: PRINTX 


PRINTB @STAER7 


MOV CMDPKT ,R2 
BIC + ated 


TST R2 


50000 $ 
JSR PC ,RECTAP 
R3,RECTAP 
@STAER6 ,RECRED 


@STAER2 


PRINTX 


PRINTX 


PRINTX 


sIF CMD IS A READ 


3 THEN RETRIEVE 
3 AND 
3 TYPE RECORD READ 


@STAERS ,CMOPKT +2, CMDPKT +4, CMOPKT +6 


—— | 


SEQ 0057 


04, -(SP) 


@STAER7T, -( SP) 
#1,-(SP) 

SP ,RO 

CSPNTB 

04,SP 


RECRED, -( SP) 
OSTAERG, -( SP) 
@2,-C(SP) 

SP RO 

CSPNTB 


@STAER2, -( SP) 
#1,-(SP) 
RO 


SP, 
CSPNTX 


4. The 


@STAER4, -( SP) 
04,-(SP) 


SP RO 
CSPNTX 


ADO #12,SP 
O@STAERS ,MSGPKT +MS .XSO,MSGPKT «MS. XS1,MSGPKT +MS.XS2,MSGPKT «MS .XS3,MSGPKT+MS.XS 


MSGPKT «MS .XS4, -( SP) 
MSGPKT +MS .XS3, -(SP) 
MSGPKT «MS .XS2, -( SP) 
MSGPKT +MS.XS1,-CSP) 
MSGPKT+MS .XSO, -( SP) 
@STAERS, -( SP) 
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006416 012746 00006 
006422 010600 
006424 104415 
006426 062706 000016 


006753 045 101 
007027 045 117 
007066 000000 

007070 

007070 


007070 104423 
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BEX 
STAER1: a /#AXXX CMD FAILED - UNIT #801SS3SAPASS: SD5SS3SARECORD : SDS8N/ 


STAER7: .ASCIZ /SAPREVIOUS CMD WAS XXX / 

STAER6: .ASCIZ /#S11sAe RECORD READ: SD58A +/ 

STAER2: .ASCIZ /sSNSACMDPKT at a en pt at a 
S28068S28068S28068S28D 15N 


STAERS: .ASCII /SAXSTOSS4SAXST1SS4SAXS TOSS4SAXST SBS4SAXSTOSN/ 
° ‘og alten cee alate tna enaadia site: 


RECRED: .WORD 0 ;RECORD READ FROM TAPE 


TRAP 
-SBTTL GLOBAL SUBROUTINES SECTION 


s¢ 

: THE GLOBAL SUBROUTINES SECTION — THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE T 

ge 


3¢ 


; 

sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
sBY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
aie SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


SINPUTS: 
: RS CURRENT UNIT NUMBER 


RO CONTENTS OF TSSR, IF ERROR 
CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 


CALLING SEQUENCE; 
JSR PC,FIRSTU 


SEQ 0058 


—————— 


96, -(SP) 
SP ,RO 
CSPNTX 
#16,SP 


J$ UMP 
L10003-2-. 


C+MSG 
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2 RSE 


012775 


000000 
016727 
000000 


012727 


172766 
177772 
177756 


002524 
176277 
002200 


005670 
002524 


000025 
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H5 


SEQ 0059 


JSR PC, SOF INIT 
CONT INUE 


; 
3 BCS 
; ERROF sREPORT FATAL ERROR 
8 
hg 
SOF INIT: : 
s (SAVREG) SAVE THE REGISTERS 
MOV #0, 3TSSRC(RS) ; DO THE INIT. 
JSR PC ,WSSR ;WAIT FOR UNIT TO BE READY 
MOV o .R3 
2s: JSR PC ,WAITF ; WAIT FOR SSR 
BcS 3% 
DELAY 250 
MOV #250,(PC)+ 
-WORD O 
MOV LSOLY,(PC)-+ 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
DEC R3 
BNE 2s 
3$: MOV @TSSRCRS),RO ;GET THE TSSR REGISTER 
MOV RO,R4 sTSSR CONTENTS 
BIC @tC<TS.AL7!TS.A16!TS.OFL>,R4 
BIS @TS.SSR!TS.NBA,R4 sR4 HAS EXPECTED CONTENTS 
CMP R4,RO sONLY EXPECTED BITS SET ? 
BEQ S$ sBRANCH IF OKAY 
cLC ;CLEAR THe CARRY FOR ERROR 
BR 10% 3GO TO EXIT 
5$: SEC 3SET THE CARRY AIT 


108: RTS PC sRETURN TO CALLER 


; 

3; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
6 

3 INPUTS: 


3 RS 
o 


; 
sOUTPUTS: 


CURRENT UNIT NUMBER 


; RO CONTENTS OF LAST TSSR READ 

; CARRY SET - READY BIT SET 

; CLR - TIMEOUT WAITING FOR READY 
i 


WAITF:: BREAK ; DO A SUPVSR BREAK FIRST. 
TRAP C$BRK 
MOV #3000. , -( SP) s 300 MSEC TIMER. 
2s: MOV @TSSRCRS),RO sREAD THE TSSR REGISTER 
TSTB RO sTEST FOR READY BIT SET 
BMI 3$ s EXIT ON STOP FLAG. 
DELAY 25 3 WAIT 


MOV 25, (PC)+ 


ee re a a ee + 





45$ s8R IF NO 
1004 007322 005267 172774 INC EXTFEA sSET EXTENDED FEATURES SW SWITCH 
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007226 000000 -WORDB O 
007230 016727 172662 MOV L$OLY,(PC)-+ 
007234 000000 «WORD O 
007236 005367 177772 DEC -6(PC) 
007242 001375 BNE -- 
007244 005367 177756 DEC -22(PC) 
007250 001367 BNE --20 
956 007252 005316 DEC (SP) sREDUCE DELAY COUNT 
957 007254 001356 BNE 2s sRETRY UNTIL TIMER EXPIRES 
958 007256 000241 CLC ; C = 0, CONTROLLER STILL RUNNING... 
| 959 007260 000401 BR 4$ ‘. .OR Seay * UP AFTER 300 MSEC. 
960 007262 000261 3$: SEC ; C= CONTROLLER IS STOPPED. 
| 961 007264 005326 4$: DEC (SP )+ RESTORE STACK WITHOUT CHANGING CARRY BIT 
962 007266 000207 RTS PC 
963 
964 
965 
_ 
on sROUTINE TO ISSUE A WRITE CHARACTERISTICS COMMAND AND CHECK FEATURES 
° 
970 3; INPUT: 
971 ; 
972 3 Ra ADDRESS OF COMMAND PACKET 
973 3 RS CURRENT UNIT NUMBER 
4a 3 REQUIRES A CALL TC SOFINIT BE DONE PREVIOUSLY 
Hy 
976 ;OUTPUT: 
977 H 
| 978 3 RO TSSR CONTENTS 
| 979 3 CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
4 3 CLR - WRITE CHARACTERISTICS FAILED 
H 
| oot sIMPLICIT OUTPUT: 
: 
984 8 SOFTWARE SWITCHES SET AS FOLLOWS: 
985 3 EXTFEA = EXTENDED FEATURES PRESENT 
be 3 BENBSW = BUFFER ENABLE SWITCH ON OR OFF 
; 
988 ; 
989 sSIDE EFFECTS: 
| 990 ; 
991 ; 
992 :- 
993 
994 007270 WRTCHK: : 
995 007270 010475 002514 10%: MOV R4,8TSDBCRS) 3SEND OUT COMMAND 
996 007274 004767 177704 JSR PC ,WAITF sWAIT FOR SSR 
997 007300 103401 6cSs 40$ 3BR, IF SSR IS SET AND OK 
998 007302 000421 BR 60$ ;B8R IF TROUBLE CARRY = CLEAR 
999 007304 005724 40$: TST CR4)> sSTEP IT 
1000 007306 011402 MOV (R4),R2 sPOINT TO WRT CHARA DATA PACKET 
1001 007310 011203 MOV (R2),R3 sGET ADDRESS OF MESSAGE BUFFER 
1002 007312 032763 600200 000012 BIT @X2. EFE, MS.XS2(R3) sEXTENDED FEATURES BIT SET? 
1003 007320 001402 BEQ 
| 
| 
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_ GLOBAL SUBROUTINES SECTION 


J5 


sBUFFER ENABLE SWITCH SET 
sBR, IF SWITCH NOT SET 
sSET SOFTWARE SWITCH FOR ENABLED 


:SET CARRY NO TROUBLE 
3EXIT 

sCARRY CLEAR = ERROR 
sRETURN TSSR CONTENTS 
sRETURN 


sSEND OUT COMMAND 


;8R, IF SSR IS SET AND OK 

3BR IF TROUBLE CARRY = CLEAR 
;STEP IT 

s°OINT TO WRT CHARA DATA PACKET 
;GET ADDRESS OF MESSAGE BUFFER 
:IS UNIT WRITE LOCKED? 
3NO,PROCEED WITH TESTING 


1906 007326 032763 000100 000012 BIT @X2.BFE,MS.xXS2(R3) 
1007 007334 001402 BEG 50$ 

1008 007336 005267 172762 INC BENBSH 

1009 007342 50$ 

1010 007342 000261 55$ SEC 

1011 007344 00040i BR 70$ 

1012 007346 000241 60$: CLC 

1013 007350 017500 002524 70$: MOV ATSSRCRS),RO 

1014 007354 000207 RTS PC 

1015 

1016 3+ 

1017 3 

ais sROUTINE TO CHECK WRITE LOCK CONDITION 
101 3 

1020 : INPUT: 

1021 H 

1022 3 RG ADDRESS OF COMMAND —— 
1023 3 RS CURRENT UNIT NUMBER 
1024 3 

1025 

1026 007356 WLKCHK: ; 

1027 007356 010475 002514 10$: MOV R4,8TSDOBC(RS) 

102R 007362 004767 177616 J PC ,WAITF 

1 007366 103401 BCS 40$ 

1030 007370 60$ 

1031 007372 005724 40$: TST CR4)+ 

1032 007374 011402 MOV CR4),R2 

1033 007376 011203 MOV CR2),R3 

1034 007400 032763 000004 000006 BIT @x0.WLK .MS.XSOCR3) 
1035 007406 001407 BEQ 55% 

1036 007410 ERRHRD 1,UNIWLK 


RO 


TSSR CONTENTS 


;TAPE IS WRITE LOCKED 
TRAP CsERHRD 


007412 000001 -WORD 1 
007414 005653 WORD UNIWLK 
007416 000000 -WORD O 
1037 007: 004767 007554 JSR PC ,DROPU sOROP IT 
1038 007424 000402 BR 60$ 3;EXIT WITH CARRY=0 
1039 007426 000261 55$: SEC ;SET CARRY NO TROUBLE 
1040 007430 000401 BR 70$ 3;EXIT 
1041 007432 000241 60$: CLC sCARRY CLEAR = ERROR 
1042 007434 70$: 
1043 007434 000207 RTS PC ;RETURN 
1044 
1045 
1046 3¢ 
1047 : 
poe -‘peciene TO ISSUE A WRITE CHARACTERISTICS COMMAND 
1050 FINPUT: 
1051 $ 
1052 ; R4 ADDRES $e COMMAND PACKET 
1053 ; RS CURRENT UNIT NUMBER 
peed : REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
i 
1056 ;OUTPUT: 
1057 F 
: 


—— 





K5 


GLOBAL AREAS MACRO M1113 14-JUN-84 18:32 SEQ 0062 
GLOBAL SUBROUTINES SECTION 


TT er 


CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 


SIDE EFFECTS: 


3828383 


1072 007436 010475 002514 10$: MOV R4,8TSOBCRS) sSEND OUT COMMAND 

1073 007442 004767 177536 JSR PC, ,WAITF sWAIT FOR SSR 

1074 007446 103401 BCS 50$ sBR, IF SSR IS SET AND OK 

1075 007450 000402 BR 60$ sBR IF TROUBLE CARRY = CLEAR 


1077 007452 000261 SEC 3;SET CARRY NO TROUBLE 
1078 007454 000401 BR 70$ sEXIT 

1079 007456 000241 60$: CLC s;CARRY CLEAR = ERROR 
1080 007460 017500 002524 70$: MOV @TSSRCRS),RO sRETURN TSSR CONTENTS 
10861 007464 000207 RTS PC sRETURN 


1084 3+ 
F 

1086 sROUTINE TO DO SET UP OF RUNNING CONDITIONS 
3 

1088 s INPUTS: 


| 

| 
1089 : 
1090 3 RS CURRENT UNIT NUMBER 
1091 ; 

| 


3 
1093 sOUTPUTS: 
1094 . 


1096 S CALLING SEQUENCE : 
: JSR PC ,FIRSTU 
; PC, SOF INIT 
3 CONTINUE 
1100 3 ERROF ;REPORT FATAL ERROR 
3 JSR PC ,MOSET 
3 
F 


1104 
1105 007466 MOSET:: BREAK ; DO A SUPVSR BREAK FIRST. 
007466 104422 TRAP Cs$BRK 
1106 007470 004767 000272 JSR PC, SETDEF sRESTORE DEFAULT 
1107 007474 004767 177656 JSR PC ,WLKCHK sCHECK WRITE LOCK 
1108 007500 103416 BCS 1$ :C=1 IS 0.K, 
1109 007502 DELAY 1 ;WAIT 
007502 012727 000001 MOV #1,(PC)+ 
000000 


, 0 
007510 016727 172402 MOV L$OLY,(PC)+ 
000000 . 0 
007516 005367 177772 DEC -6(PC) 
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007522 001375 

007524 005367 177756 

007530 001367 
1110 007532 BREAK 

007532 104422 
1111 007534 DOCLN 

007534 104444 
1112 007536 005767 172550 i$ TST 
1113 007542 001064 BNE 
1114 007544 004767 6 JSR 
1115 007550 004767 177514 JSR 
1116 007554 005767 172540 TST 
1117 007560 001415 BEQ 
1118 007562 052767 000040 173742 BIS 
1119 007570 005767 172526 TST 
1120 007574 001002 BNE 
1121 007576 004767 000122 JSR 
1122 007602 004767 000160 2s: JSR 
1123 007606 004767 177624 JSR 
1124 007612 000443 BR 
1125 007614 005767 172476 3$: TST 
1126 007620 001415 BEQ 
1127 007622 052767 000030 173702 BIS 
1128 007630 005767 172466 TST 
1129 007634 001002 BNE 
1130 007636 004767 000062 JSR 
1131 007642 004767 000120 4$: JSR 
1132 007646 004767 177564 JSR 
1133 007652 000423 BR 
1134 007654 005767 172434 S$: TST 
1135 007660 001415 BEQ 
1136 007662 052767 000020 173642 BIS 
1137 007670 005767 172426 TST 
1138 007674 001002 BNE 
1139 007676 004767 000022 JSR 
1140 007702 004767 000060 6$: JSR 
1141 007706 004767 177524 JSR 
ah 007712 000403 BR 
ne 007714 016767 173612 172562 10%: MOV 
1146 007722 000207 11$: RTS 
1147 
1148 
1149 ; 
1150 ; SUBROUTINE TO 
1151 ; 
1152 INPUTS: 
1153 ; 
1154 : 
1155 3 
1156 sOUTPUTS: 
1157 : 
1158 
1159 
1160 007724 INVRT:: 


1161 007724 012767 140006 172376 MOV 


TS1MD 

10% 

PC, SETOEF 
PC ,WRTCHK 
HSSW 


3$ 
@€F .HSS, TSUNT 
EXTFEA 


TSUNT , SCHBK +10 
PC 


SEQ 0063 
BNE .-4 
DEC -22(PC) 
BNE --20 


sBREAK TO SUPER 
sD0 CLEAN AND ABORT 
sRUN IN DEFAULT MODE? 


sD0 WE RUN AT 100IPS? 


sNO 

sYES,SET THE BIT 
sARE WE SET? 

sYES 

s INVERT THE SWITCH 
— THE MODES 
3 


sRUN WITH WRITE BUFFERING? 


3NO 

sYES SET THE BITS 
sARE WE SET? 

3; YES 

sINVERT THE SWITCH 
—_ THE MODES 
PF 


sRUN WITH READ BUFFERING? 


NO 
sYES SET THE BITS 
sARE WE SET? 


;YES 
sINVERT THE SWITCH 
sNOW SET THE MODES 
300 IT 

sAND UNIT @ 


sRETURN 


INVERT SENSE OF EXT'D FEATURES SWITCH 


OWSM, CMDPKT «CP .CMD 


sWRT SUB-SYS MEM 
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1162 007732 
1163 007740 
1164 007746 
1165 007754 
1166 907760 
1167 007764 





012767 
012767 
012767 
012704 
004767 
000207 


173432 


173426 


173422 


173416 


172372 
172370 
172532 


-JUN-84 18:32 


; 
; SUBROUTINE TO 


; 
; INPUTS: 
; 
; 


; 
OUTPUTS: 


: 
: 


SETDEF :: 


TSSINI: : 


L10005: 


TSSIN2:: 


10006: 


3333833 * 


D 
“ 
w 


NC 
ENDSRV 


TSSINS: : 
I 


MS 


@WSMBK , CMDPKT +CP . ADL 


sMSG BUF ADDR 
sBYTE COUNT 
s INVERT THE SWITCH 


$ 
300 IT 
;RETURN 


SETUP DEFAULT SET CHAR CMD 


ADDRESS OF COMMAND PACKET 


. CMDPKT + ADL 
@OF TSCH, SCHBK +6 
ee 


UP COMMAND 
;SET UP ADR LO TO POINT TO MSG BUF(MSGPKO) 
;SET BUFFER EXTENT 
ree Sen, ae CODE IN SCH BLOCK. 
sADORESS OF CMD PACKET 
;RE TURN 


TO HANOLE TSOS INTERRUPTS. 


TSSINO 
INTFLG ;SET INTERRUPT OCCURRED FLAG. 
RTI 
TSSIN1 
INTFLGe2 sSET INTERRUPT OCCURRED FLAG. 
RTI 
TSSIN2 
INTFLGe4 SET INTERRUPT OCCURRED FLAG. 
RTI 
TSSINS 
INTFLG+6 SET INTERRUPT OCCURRED FLAG. 
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1254 010162 
1255 010162 
1256 010166 
1257 010172 
1258 010176 
1259 010202 
1260 010204 


10007: 


000002 


000400 173326 


172260 
173304 
900001 


177400 


173366 


50003$: 


177400 


017703 173230 


000207 


012701 
012721 
012721 
012721 
005721 
000207 


RECTAP:: 


RTI 


SUBROUTINE TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 


PRINTS. 
OUTFUTS: R3 = RECORD COUNT READ 
REGISTERS: R2, A3, RO ’ 
CALLS: 
ert @MOD . CO. CHDWRD ;READ REV FETCH 
MOV MSGPKT «MS .RFC,R2 ;FIND LAST READ AD. 
ADD DATARD ,R2 
ert e81100.R2 :000 AD., REASSEMBLE 
INC R2 ;REC COUNT STARTING 
MOVE = (R2), RB ;WITH UPPER BYTE FETCH 
BICB €177400,R3 
c R2 ;LET R2 :* R2 - @1 ;LOWER BYTE AD. 
TSTB  SWOFLG ;IFB SWAFLG NE @0 THEN 
BEQ 50003 
DEC R2 ;LET R2 := R2 - O1 ;LOWER BYTE AD. ON SWAP 
MOVB (R2),R4 ;FETCH LOWER BYTE 
BICB  177400,R4 * 
BIS R4,R3 
BR 50004 $ 
Mov (R2),R3 ;LET R3 := (R2) ;EVEN AD. FETCH 
BR 50005 
MOV @DATARD ,.R3 ;LET R3 := @DATARD ;READ FWD FETCH 
RTS PC 


SUBROUTINE TO STORE A SET a— tan COMMAND AS 


THE FIRST ENTRY IN THE SEQUENCE T 
INPUTS: 


OUTPUTS: 

REGISTERS: 

Cc : 

MOV #CMDSEQ,R1 
Nov @SCH,(R1)+ 
MOV OOF TSCH,(R1)+ 
MOV #1,(R1)+ 

TST CR1)-+ 

RTS PC 


sINIT CMD SEQUENCE TABLE POINTER. 
sTHIS CODE SETS UP A SET CHARACTERISTIC 
s;COMMAND AS THE FIRST COMMAND IN THE 


sSEQUENCE TABLE. 
;SKIP PATTERN LOCATION. 


77 tha TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 
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1264 : OUTPUTS: 
1265 : REGISTERS: 
1266 : CALLS: 
1267 
1268 010206 012721 102010 SETRW:: MOV ORWO,(R1)> sCMD = REWIND. 
1269 010212 012721 000001 MOV @1,(R1)> ORF 
1270 010216 012721 000001 MOV @1,(R1)+ @ OF OPERATIONS. 
1271 010222 005721 TST (R1)- :SKIP PATTERN. 
1272 010224 000207 RTS PC ;RE TURN | 
12 
1274 : SUBROUTINE TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 
1275 : DEVICES. 
1276 : INPUTS: 
1277 : OUTPUTS: R2 = TERMINATION INDICATOR (O*END OF TABLE,1*E€0T) 
1278 : REGISTERS: 
1279 ; CALLS: CMDAC , SETUP ,EXSUB , CKHAE ,NEXTU,FIRSTU, VF YDAT. 
1 
1281 010226 012701 003540 EXALL:: MOV @CMDSEQ,R1 sINIT SEQUENCE TABLE POINTER. 
12862 010232 50006 $ : 
1263 010232 021127 177777 CMP (R1), @END sWHILE THERE ARE CMDS IN THE SEQUENCE TABLE. 
1284 010236 001530 BEQ 500078 
1285 010240 004767 000726 JSR PC, SETUP :GO SETUP THE COMMAND BLOCK. 
1286 010244 50010$: BREAK 3 DO A SUPVSR BREAK FIRST. 
010244 104422 TRAP = CSBRK 
1287 010246 026767 173140 173140 CMP NCNT .NCNT 1 sWHILE THERE ARE RECORDS EMAINING: 
1288 010254 002116 BGE 50011 
1289 010256 004767 000602 JSR PC,.CMDAC sSTORE CMD ASCII IN ERROR MESSAGE. 
1290 010262 105767 173227 TSTB RANDOM sIF IN RANDOM MODE: 
1291 010266 001435 BEQ 50012 
1292 010270 026727 173124 104005 ,OURT :IF CMD IS A WRITE THEN: 
1293 610276 001031 500138 
1294 010300 105767 173212 TSTB =: VF YFLG sIF DATA IS NOT TO BE VERIFIED THEN: 
1295 010304 001026 500143 
1296 010306 066767 173122 173116 ADO RANS ,RANB ;LET RANB :* RANB + RANS ;GENERATE 
1297 010314 066767 173112 173112 ADO RANB ,RANS sLET RANS :* RANS + RANB ;RANDOM 
| 1298 016322 016767 173106 173066 MOV RANS ,BRFCNT ;LET BRFCNT ;:= RANS ;LENGTH 
| 1299 010330 046767 173074 173060 BIC LENMSK.BRFCNT § ;MASK RANDOM LENGTH 
| 1300 010336 026727 173054 000022 CMF BRFCNT, 018. :00 NOT ALLOW BYTE COUNT OF LESS THAN 18 
| 1301 010344 002003 BGE 50015¢ 
1302 010346 012767 000022 173042 MOV 018. ,.BRFCNT sCHANGE COUNT OF 0-17 TO 18. 
| 
| «1304 010354 50015$: 
1305 010354 016767 173036 171754 MOV BRFCNT , CMDPKT «CP. CNT sMOVE BRF TO CMD PACKET. 
1307 010362 50014$: 
1308 
1309 010362 500135: 
1310 
1311 010362 $0012: 
1312 010362 004767 000136 JSR PC,EXSUB sISSUE CMD TO ALL. AWAIT INTS. CHECK STATUS. 
1313 010366 004767 0067: JSR PC, CKHAE 1 CHECK HALT AFTER EACH CMD FLAG. 
1314 010372 012702 000001 MOV @1,R2 sLET R2 : ;SET ALL UNITS AT BOT/EOT. 
1315 010376 004767 006500 JSR PC ,FIRSTU ‘FIND FIRST UNIT. 
1317 010402 50016: 
1318 010402 026527 002604 177777 CMP DEVTBL(RS), @END ;WHILE THERE ARE MORE UNITS: 
1319 010410 001426 BEO 50017$ 
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1320 010412 032767 000400 173000 BIT @M0D .CO, CMOWRD sIF CMD IS REVERSE THEN: 
1321 010420 001406 BEQ 50020% 
1322 010422 032765 000002 003502 BIT x0. BOT, EOTFLGCRS) IF NOT AT BOT THEN: | 
1323 010430 001001 BNE 50021$ 
1324 010432 005002 CLR R2 sLET R2 :* 00 ;CLEAR EQT/BOT FLAG. } 
1325 
1326 010434 500215: | 
1327 010434 000411 BR 50022 sELSE IF CMD IS NOT REVERSE: 
1328 010436 500208: | 
1329 010436 032765 000001 003502 BIT @x0..EOT ,EOTFLG( RS) 
1330 010844 001404 BEQ §0023% 
1331 010446 032767 000001 172744 BIT @CMD .CO, CMOWRD 

} 1332 010454 001001 ONE 50024 

| 1333 010456 500233: 

1334 :IF NOT AT EOT OR NOT A MOTION CMD THEN: 
{074 010456 005002 CLR R2 sCLEAR EOT/BOT FLAG. 

j 1 

| 1337 010460 500248: 

} 1338 

| 1339 010460 500228: 
1340 010460 004767 006464 JSR PC ,.NEXTU sF IND NEXT UNIT 

| 1341 010464 000746 BR 50016$ 
1342 010466 500173: 

1343 010466 020227 000001 CMP R2,¢1 3IF ALL UNIT ARE AT EOT/BOT THEN: 

i 1344 010472 001001 BNE 50025% 

io 010474 000412 BR EXARTN sRETURN WITH Re = @1. 

| 1347 010476 500258 : 

1348 010476 005267 172710 NC NCNT sLET NCNT := NCNT + @1 sUPDATE RECORD COUNT. 
ot 010502 016767 172712 172714 MOV CMOWRD , PCMDWD sSAVE PREVIOUS COMMAND WORD. 
1351 010510 000655 BR 500108 
1352 010512 500118: 

! 1353 010512 004767 005350 JSR PC, VF YDAT 3IF LAST CMD WAS A WRITE VERIFY, THEN GO 

| a. sVERIFY THE LAST N RECORDS OF DATA. 
1356 010516 000645 BR 50006 $ 
1357 O1 50007$: 
1358 010520 005002 CLR Re sLET RO := 00 sSET NORMAL RETURN INDICATOR. 

ieee 010522 000207 EXARTN: RTS PC sRETURN. 

1361 

_ -y362 

| 1363 : SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES, WAIT FOR 

1364 3 ALL INTERRUPTS, AND CHECK ALL STATUS. 

«1365 ; INPUTS : 

j 1366 : OUTPUTS: 
1367 : REGISTERS: 
yon 3 CALLS: EXCUTE ,GOWAIT ,NEXTU,FIRSTU. 

| 1370 010524 004767 006352 EXSUB:: JSR «PC, FIRSTU :SET UP FOR FIRST UNIT. 

1371 010530 500268: 

1372 010530 026527 002604 177777 CMP DEVTBL( RS), OEND ;sWHILE THERE ARE MORE DEVICES: 

| 1373 010536 001465 6EQ 500278 

1374 010540 032767 000400 172652 BIT @M00 .CO, CMOWRD sIF CMD IS REVERSE THEN: 

| 1375 010546 001421 ¢ 


BEQ S00 
1376 010550 032765 000002 003502 BIT x0 .BOT ,EOTFLGC(RS) sIF NOT AT BOT 
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BNE 
000001 003502 BIT 
BEQ 
172730 TST8 
BEQ 
001252 JSR 
50033$: 
BR 
50032% 
001244 JSR 
50034$: 
500318: 
BR 
50030$: 
172610 000002 oo 
000002 003502 BIT 
BEQ 
002616 172652 MOV 
172646 CLR 
50036$: 
000001 003502 aoe 
000001 172536 BIT 
BNE 
50037$%: 
001164 JSR 
BR 
500405: 
172626 TST8 
BEQ 
001150 JSR 
50042$: 
500418: 
50035$%: 
006240 JSR 
50027$%: 
172601 TSTB 
BEQ 
172573 CLRB 
50043%: 
006150 JSR 
500443: 


50031$ 
@x0.EOT ,EOTFLG(RS) sBUT IF AT EOT 
0032$ 


ALLEOT 
50033$ 
PC ,EXCUTE 
50034 $ 


PC ,EXCUTE 


50035$% 
CMOLG, 62 


sAND ALL OTHERS AT EOT 


s THEN EXECUTE REV CMD 
sIF NOT ALL AT EOT, FREEZE UNIT(S) AT EOT 


sIF NOT AT BOT AND 
sNOT AT EOT, EXEC REV CMD 


sELSE IF CMD IS NOT REVERSE: 


50036$ 
@x0.B0T ,EOTFLGCRS) 
50036$ 


sCLEAR BAD SPOT COUNTS WHEN WRITING FROM BOT 


BTADOR(RS),BTPT sLET BTPT :* BTADOR(RS) 
SBTPT sLET SBTPT := 00 
x0 .EOT ,EOTFLG(RS) 
50037% 
CMD .CO, CMOWROD 
50040% 

sIF NOT AT EOT OR NOT A MOTION CMD THEN: 
PC ,EXCUTE s ISSUE CMD TO TSOS 
500418 
ALLEOT sIFB ALLEOT NE 00 THEN 
50042$ 
PC ,EXCUTE 
PC ,NEXTU sFIND NEXT UNIT IN TEST CYCLE. 
50026$ 
RPTFLG sIF REPORT HAS BEEN REQUESTED THEN: 
50043% 
RPTFLG sCLR THE FLAG, 

sPRINT THE PERFORMANCE REPORT. 

TRAP CsORPT 

PC,FIRSTU sSET UP FOR FIRST UNIT. 
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1433 010732 026527 002604 177777 
1434 010740 001450 

1435 010742 032767 000400 172450 
1437 010752 032765 000002 003502 


1439 010762 032765 000001 003502 


1449 011006 004767 061352 
1451 011012 500S2$: 


1434 011012 50047: 


1457 011014 032765 000001 003502 
1459 011024 032767 000001 172366 
1461 011034 50054 $: 
1463 011034 004767 0013524 

1467 011082 105767 172456 gers: 
1469 011050 004767 001310 

1471 011054 50057$: 
1473 011054 50056$ : 


1475 011054 50053$: 
1476 011054 004767 006070 


1479 011062 50045$: 


3 
F 
3 
1485 Fy 
3 
3 
PF) 


ee ee om a me ee a = ne a ee ee ese a 
’ 


50057 $ 
JSR PC ,GOWAIT 


JSR PC ,NEXTU sFIND NEXT UNIT IN TEST CYCLE. 
BR 50044$ 
RTS PC sRETURN, 


THIS eee STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 
OMMAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CMOWRD 
ere CURRENT CMD AND LOCATION PCMOWD CONTAINS PREVIOUS CMO. 


OUTPUTS: 
REGISTERS: R3, R4, 
CALLS: GCMDA 


| 
SEO 0069 
cre DEVTBLCRS), @END ;WHILE THERE ARE MORE DEVICES: | 
BIT @HOD . CO, CHOWRD ;IF CMO IS REVERSE THEN: 
BEQ 50046$ 
err @x0 BOT ,EOTFLGCRS) ;IF NOT AT BOT 
BIT @x0.EOT,EOTFLG(RS) ;8UT IF AT EOT 
BEQ 500508 
TSTB = ALLEOT ;AND ALL OTHERS AT EOT 
BEQ 50051 
JSR PC ,GOWAIT ; THEN WAIT FOR CMD END 
sIF NOT ALL AT EOT, DO NOT WAIT 
;NOT AT BOT, AND NOT AT EOT 
BR 50052$ 
JSR PC,GOWAIT ;WAIT FOR INT,CHECK STAT 
BR 50053$ ;ELSE IF CMD IS FORWARD: 
" gIT @x0.E0T,EOTFI.G(RS) 
BEQ 50054$ 
BIT @CMD .CO, CHOWRD 
BNE 50055$ | 
;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
JSR PC ,GOWAIT ;WAIT FOR INT,CHECK STATUS. 
BR 50056$ 
TSTB = ALLEOT :IFB ALLEOT NE 0 THEN 
BEQ 7 
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1522 011170 


1531 011172 
1532 011176 
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000464 
026727 
001003 
012767 


172330 
000042 


003752 


004040 


000010 
171074 
171064 100011 
000002 172150 


SEQ 0070 
CMDAC:: MOV CMOWRD , ae R4 ;= CMDWRD :R4 = CMD BINARY. 
JSR Pp sGET CMD ASCII. 
MOvB (R3)>, STAERI 02 .sMOVE CMD ASCII 
MOVE (R3)+.STAERI+3 : 
MOVB (R3),STAER1+4 ; INTO oe * 
MOV PCMOWD , R4 = PREVIOUS CMD BINARY. 
JSR PC .GCMDA 3;GET cMo’ ASCIL. 
MOVB CR3)+,STAER7+24 sMOVE CMD ASCII 
MOVB CR3)+,STAER7+25 
MOVB (R3), STAER7 +26 sINTO MSG. 
RTS PC sRETURN. GO EXECUTE NEXT FUNCTION. 
3 SUBROUTINE TO FIND THE ASCII EQUIVILENT OF THE COMMAND IN R4. 
3 ADDRESS OF a, = WORD IS RETURNED IN R3. 
: INPUTS: = PRESENT C WORD. 
3 OUTPUTS: RS * ADDRESS OF PRESENT COMMAND ASCII. 
3 REGISTERS: 
3 CALLS: 
oh CLR R3;LET R3 := 00 sINIT CMD TBL POINTER. 
CMP CMOTBL(R3),R4 sUNTIL CURRENT CMD IS FOUND: 
BEQ 50061 
ADD 62 ,R3 sLET R3 := RB + 02 sSEARCH CMD TABLE. 
BR 50060$ 
50061$: 
MOV R3,R4 sLET R4 := R3 
~- R3 sPOINT TO ASCII FOR THAT COMMAND 
ADD R4,R3 
ADD @CMDASC .R3 
RTS PC ;RETURN. 
3 THIS SUBROUTINE LOADS THE TSOS COMMAND PACKET FROM ONE 
3 ENTRY IN THE SEQUENCE TABLE. 
3 INPUTS: 
Fy OUTPUTS: 
F REGISTERS: R2, R3. 
F CALLS: GENPAT. 
SETUP:: CLR CMOLG 3CLR CMD LOGGING CODECDISABLES LOGGING) 
MOV CR1)+,CMOPKT sLOAD THE COMMAND WORD. 
MOV CR1),CMDPKT+CP.CNT sLOAD THE BYTE/RECORD/FILE COUNT. 
MOV (R1),BRFCNT sSAVE BRF FOR THIS COMMAND. 
MOV CMDPKT ,R2 sGET CMD. 
BIC ONCMD.C ,R2 :CLR ALL BUT CMD BITS. 
MOV R2,R3 sSAVE IT TWICE. 
oe we C3,R3 ag a I cat 
o 
—y  aeiteaataias ;MOVE BPCR IN 2ND PKT WORD FOR POSITION CMD. 
2s: CMP CMOPKT , @WTM ;IF CMO IS A WRITE TAPE MARK THEN: 
BNE 50062$ 
MOV #2,CMOLG :WT™M LOGGING CODE IS 2. 
50062$: 


F6 
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GLOBAL SUBROUTINES SECTION 


010203 
162703 
001017 
016767 
032767 
001404 
012767 
000403 
012767 


000001 
172116 171036 
000400 171026 
000004 172114 
1555 011312 
1556 011314 


1557 011314 172104 


a 
& 


170770 
170766 


171122 


000020 170734 
003406 170722 
171776 
171770 
172020 


170666 


171750 
170644 


172022 
170626 


105067 


171706 
1 171674 
171770 


010000 170570 


170562 


004000 
170556 171646 


1602 011546 
1603 011554 


4$: 


3$: 


5$: 


50067$: 


R2,R3 
+ ceieinn 


DATARD, CMDPKT +CP. ADL 
MOD .CO, CMDPKT 
50063$ 
04, CMOLG 
50064 $ 
06, CMOLG 
3$ 
R2,R3 
-» tieaantaen 
@SCHBK , CMDPKT+CP. ADL 
@SCHCNT , CMDPKT +CP. CNT 
(R1), SCHBK +6 
pho: 
R2,R 
ecHO. Scuscro. C2,R3 
@OIACNT ,CMOPKT +CP.CNT 
@OIABLK , CMDPKT «CP. ADL 
(R1)+ 
(R1)+,NCNT1 

NT 
(R1)+,PATERN 
R2,R3 
SO. O Lae 


DATAWT, alia ADL 


41,VFYFLG 


50066 $ 


50067$ 
@SWB.C,CMOPKT 


OBRF .C,CMDPKT 
— »CMDSAV 


SEQ 0071 | 


sIS IT A READ? 
;6R IF T. 

sIF SO, LOAD THE BUFFER ADOR. 
sIF CMD IS A READ REV THEN: 


sLOGGING CODE I 
sELSE - IF CHO is" A READ FWO: 


sLOGGING CODE IS 6. 


sCONTINUE. 

3IS IT 

2g 3 a CMO? 

$ 

sSET UP ROR LO Ane SET CHAR. 

iSET BUFFER EXTENT 

sSTORE CHARACTERISTIC CODE IN SCH BLOCK. 


31S IT 
A 5 x (OIA) CMD? 
sBR IF NOT. 


;LOAD BUFFER EXTENT. 

sLOAD BUFFER ADR LOW. 

sPOINT TO N (NUMBER OF TIMES TO EXECUTE THIS INS 
s;SAVE NUMBER OF OPERATIONS 

sCLEAR OPERATION COUNTER. 

+ PATTERN CODE FOR CURRENT CMD. 


ITE LOGGING CODE IS 2. 
sIF DATA VERIFICATION IS REQUIRED: 


sSET VERIFY FLAG. 
sCLEAR VERIFY BITCNOT USED BY HARDWARE ) 
sIF DATA VERIFICATION IS NOT REQUIRED: 


s;CLR VERIFY FLAG. 


sSAVE PREVIOUS CMD WORD 
sSAVE PRESENT CMD WORD. 
sIK SWAP BYTES IS ENABLED: 


sSET SWAP BIT IN COMMAND. 
sCLR BRF BIT CINTERNAL ONLY). 


sSAVE 1ST WORD OF COMMAND PACKET. 
sRETURN. 





GLOBAL ARE 
GLOBAL SUBROUT INES SECTION 


1666 
1645 011670 


1646 
1647 011674 
1646 011674 


1649 
1650 011676 
1651 
1652 


1653 
1654 011700 


1658 011714 
1659 
1660 011716 


MACRO M1113 14-JUN-84 18:32 


016703 
016704 
S204 


002 
012703 


000764 


171664 
171626 
000001 
000002 
171600 
000002 
011620 


177777 
000002 


THIS SUBROUTINE SETS UP AND CALLS THE APPROPRIATE SUBROUTINE TO GENERATE 


a De PATTERN FOR THE WRITE AND WRITE/VERIFY COMMANDS. 


OUTPUTS: 
REGISTERS: R2, R3, R4 
CALLS: PATRO - PATR7 
GENPAT: :MOV — sSETUP PATTERN ROUTINE POINTER 
oe oe sSET LENGTH OF WRITE BFR 
Bic 1,R4 sROUNDED UP TO NEXT WORD 


PATTBL: 


SUB #2 ,R4 ;WITH FIRST WORD RESERVED 


poo —— sFOR RECORD COUNT 
JSR PC,GPATTBL(R3) 1sGO GENERATE THE APPROPRIATE PATTERN. 
RTS PC sRETURN TO SETUP SUBROUTINE. 


sTSOS WRITE PATTERN LOOKUP TABLE. USED TO JSR TO THE 
sCORRECT DATA PATTERN GENERATING ROUTINE. 


sINCREMENTING PATTERN. 0 - 377. 


MOV @400,R3;LET R3 := 0400 
SUB #2,R4;LET R4 := R&4 - @2 ;DECREMENT WORD COUNT. 


IF PATTERN HAS WRAPPED AROUND THEN: 
sINIT THE PATTERN AGAIN. 
3:00 IT AGAIN. 


RTS PC sRETURN. 


MOV #-1,R3 s;ALL ONES PATTERN;. 


SUB #2,R4 sDECREMENT BYTE COUNT. 

BMT 1$ sD00NE?,BR IF YES. 

MOV R3,(R2)+ sIF NOT LOAD NEXT BYTE WITH PATTERN. 
BR ZROPAT sD0 IT AGAIN. 

RTS PC sRETURN. 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


011766 
011772 
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005003 
004767 
000207 


012703 
162704 


012703 
004767 
000207 
012703 


004767 
000207 


012703 
62704 


00402 
010322 


177756 


000401 
000002 


177376 
177750 


125125 
177706 


177400 
000002 


000002 


171402 
171372 
171366 


171376 
171372 


sALL ZEROES PATTERN. 


PATR2:: CLR R3 sCLR ath REGISTER. 
JSR PC, ZROPAT sGO GENERATE IT. 
RTS PC ; RETURN. 
3;ONE BIT WALKING FROM R TO L IN A FIELD OF ZEROES. 
PATR3:: MOV #401 ,R3 sINIT PATTERN REGISTER. 
WLKZRO: SUB @2, R4;LET R4 :* R4 - @2 ;DECREMENT WORD COUNT. 
BMI 1$ 3;B8R IF DONE. 
MOV R3,(R2)+ sLOAD DATA. 
ASL R3 sSHIFT PATTERN 
AOC R3 sADD CARRY BACK INTO PATTERN. 
BR WLKZRO :00 IT AGAIN 
1$: RTS PC sRETURN. 
;ZERO BIT WALKING FROM R TO L IN A FIELD OF 1'S. 
PATR4:: MOV 0177376,R3 sINIT PATTERN REGISTER. 
JSR PC ,WLKZRO 3GO GENERATE ;IT. 
RTS PC sRETURN. 
sALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
;COMPLEMENTED. 
PATRS:: MOV #125125, ~" sINIT PATTERN — 
JSR PC, ZROPAT 3GO GENERATE IT 
RTS PC sRETURN. 
sALTERNATING BYTES OF 000 AND 377. 
PATR6:: MOV #177400 ,R3 sINIT PATTERN REGISTER. 
1$: SUB @2,R4 sDECREMENT WORD COUNT. 
BMI 2s H . 
MOV R3,CR2)+ sLOAD DATA. 
BR 1$ 3:00 IT AGAIN. 
2s: RTS PC sRETURN, 
sRANDOM PATTERN GENERATOR 
PATR7:: SUB 02 ,R4 sDECREMENT WORD COUNT 
BMI GIT ;B8R IF DONE. 
ADD RANS , RANB 
ADD RANB .R sGET NEW ® 
MOV RANS , (R2)+ sSAVE @. 
BR s CONTINUE 
GIT: RTS PC sRETURN 
; NO PATTERN GENERATION. 
PATR8:; RTS PC sRETURN. 


THIS SUBROUTINE INITIATES TSOS COMMAND EXECUTION 
+4 pga FOR TSOS RESPONSE. 


SEQ 0073 


GLOBAL AREAS 
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GLOBAL SUBROUTINES SECTION 


1729 912110 
1730 012114 
1731 

1732 012116 
1733 012116 


1766 012254 





012767 


177777 


171350 
171344 


000634 


005064 


000200 
171266 


171310 
004734 


002604 


000516 
004762 


171256 
002544 


002544 


000020 
177777 
000002 


167756 
003472 
002524 


171354 


002524 
140004 


177777 


170272 


J6 


————— | 


SEQ 0074 
: OUTPUTS: 
; REGISTERS: R2, R3. 
; CALLS: DROPU, MOVMSG, FIRSTU, NEXTU, WSSR. 
EXCUTE:: MOV @-1,TIME1 sINIT TIMEOUT COUNTER. 
50071$: ;REPEAT sWAIT 
DEC TIME1 S UPDATE TIMEOUT COUNTER. 
TST TIME1 sIF TIMED OUT: 
BNE 50072$ 
JSR PC ,MOVMSG sMOVE CURRENT PACKET MSG. 
ERRDF  2,NSSRM,STAERM sREPORT TSOS NOT READY 
TRAP CSERDOF 
-WORD NSSRM 
-WORD STAERM 
JSR PC ,DROPU sOROP THE UNIT. 
BR EXCRTN sRETURN, 
50072$: 
BIT @TS.SSR,@TSSRCRS) sWAIT UNTIL DEVICE IS READY. 
BEQ 50071$% 
CMP .@SCH sIF WE ARE DOING A SET CHAR CMD THEN: 
BNE 50073% 
MOV RS,,RSSAVE sSAVE CURRENT DEVICE POINTER. 
a JSR PC,FIRSTU sFIND FIRST UNIT. 
CMP DEVTBL(RS),@END ;WHILE DEVTBL(RS) NE @END DO 
BEQ 50075$ 
JSR PC,.WSSR sWAIT FOR UNIT READY OR TIME OUT, 
JSR PC ,NEXTU sFIND NEXT UNIT. 
50074$ 
50075$ 
MOV RSSAVE ,.RS sRESTORE CURRENT pty POINTER. 
MOV MSGPKACRS ) , SCHBK s;SET UP ADR OF MSG PKT IN SCH BLOCK. 
50073$: 
MOV MSGPKACRS ),R3 ADR OF THIS UNIT'S MSG PACKET. 
CLR R2 sCLR COUNTER. 
50076$ : 
CMP R2, OMSGCNT sWHILE THERE ARE MORE LOCATIONS: 
BEQ 50077$ 
MOV @-1,(R3)+ sINIT THE MSG PACKET WITH ALL 1'S 
ADD #2,R2 sUPDATE COUNTER. 
BR 50076$ 
50077$%: 
TSTB DINT sARE INTERRUPTS DISABLED. 
BNE 1$ ;BR IF YES. 
— roo ene sIF MORE THAN ONE INTERRUPT HAS OCCURED: 
MOV @TSSRCRS), TSSREG sFREEZE THE CURRENT STATUS REG FOR PRINT 
ERROF 15, TOOMM,STAERM  ;REPORT TOO MANY INTERRUPTS. 





TRAP CSEROF 
-WORD 15 


-WORD TOQMM 
-WORD STAERM 


5 i ee ee + ee eee ee ee ee —— } 


809 BNE 
1810 012454 50105$: 


GLOBAL AREAS MACRO M1113 14-JUN-84 16:32 SEQ 0075 
GLOBAL SUBROUTINES SECTION 
1767 012264 004767 004710 JSR PC ,DROPU ;DROP THE UNIT 
1768 012270 000434 BR EXCRIN ;RETURN - UNIT HAS BEEN DROPPED. 
1769 
1770 012272 501008: 
1771 012272 005065 003472 CLR INTFLGCRS ) sCLR INTERRUPT FLAG FOR THIS DEV. } 
1772 012276 052767 000200 170024 BIS @IE.C,CMOPKT ;SET INT ENABLE BI 
1773 012304 105767 171161 1$: TST8 ERRREC; IFB ERRREC EQ #0 THEN ;IF NOT RETRYING 
1774 012310 001005 BNE 50101$ 
1775 012312 005265 003376 INC RECCNT(RS) ;LET RECCNT(RS) := RECCNT(RS) + 1 
| a7ts 012316 016577 003376 171062 MOV RECCNT(RS), @DATAWT sTHEN UPDATE REC COUNT TO WRITE IT ON TAPE 
1 
1778 012324 50101$: 
1779 012324 012775 002330 002514 MOV @CMDPKT , @TSDB(RS) ;LOAD TSDB WITH CMDPKT ADDRESS 
1780 s;THIS INITIATES COMMAND EXECUTION. 
1781 012332 032775 000200 002524 BIT @TS.SSR,@TSSR(RS) ;IF READY DID NOT DROP THEN 
1782 012340 001410 BEQ 50102$ 
1783 012342 004767 000366 JSR PC ,MOVMSG sMOVE CURRENT MESSAGE PACKET TO COMMON. 
| 1784 012346 ERROF 3, TOERM,STAERM ;REPORT NO TSOS RESPONSE. 
012346 104455 TRAP CSEROF 
012350 000003 -.WORD 3 
012352 004453 .WORD  TOERM 
012354 006120 .WORD STAERM 
1785 012356 004767 004616 JSR PC,DROPU ;DROP THE UNIT 
1787 012362 50102$: 
1788 012362 000207 EXCRTN: RTS PC ;RETURN. 
1790 ; THIS SUBROUTINE WAITS FOR THE TSOS INERRUPT OR DONE BIT TO SET AND ALLOWS THE 
1791 : OPERATOR TO TRANSFER CONROL TO THE SUPERVISOR. 
1792 : UPON APPEARANCE OF THE INTERRUPT OR DONE, CHECK TSSR FOR STATUS ERRORS, 
1793 ; LOG BYTES AND ERRORS AND PERFORM ERROR RECOVERY IF NESSASARY. 
1794 3 INPUTS: 
1795 ; OUTPUTS: 
1796 ; REGISTERS: R2, R3. 
faa ; CALLS: DROPU, MOVMSG, RECUD, CHKERR, LOG, CLRERR. 
1799 012364 012767 177777 171044 GOWAIT:: MOV @-1,TIME1 sINIT TIME OUT COUNTER. 
1800 012372 50103$: ;REPEAT ;REPEAT UNTIL INTERRUPT OCCURES: 
1801 012372 BREAK ;GO TO THE SUPER TO ALLOW TTY INPUT. 
012372 104422 TRAP CSBRK 
1802 012374 026727 171020 102010 CMP CMOWRD , @RWD 3IF COMMAND WAS REWIND THEN: 
1803 012402 001014 BNE 50104$ . 
1804 012404 DELAY 10. ;WAIT EXTRA MSECS EACH LOOP. 
012404 012727 000012 MOV #10. .(PC)+ 
012410 000000 .WORD 0 
012412 016727 167500 MOV LSDLY.(PC)+ 
012416 000000 .WORD 0 
012420 005367 177772 DEC ~6¢PC) 
012424 001375 BNE 
012426 005367 177756 DEC "32cPC) 
012432 001367 BNE .-20 
1805 012434 50104$: 
1806 012434 026727 170760 105010 CMP CHOURD OSFF sIF CMDWRD EQ #SFF OR CMOWRD EQ #SFR THEN 
1807 012442 001404 BEQ 50105 
1808 012444 026727 170750 105410 CMP CHOURD. OSFR 
1 012452 001014 50106$ 





a SS 


GLOBAL ARE 


1611 012454 
01 


1614 


012516 
012520 


1855 012662 
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012727 
000000 
016727 
000000 


000014 
167430 
177772 
177756 


167502 
003472 


170620 


50106$: 


50107$: 


50110$: 


50111: 


50112$: 


50114: 
50113$: 


DELAY 


RTS 


SEQ 0076 

12. ;ADD DELAY FOR SPACE TAPE MARK COMMANDS 
MOV a12. .(PC)« 
MOV LSOLY,(PC)- 
.WORD 0 
DEC -6(PC) 
BNE 
DEC “32cee) 
BNE .-20 

OINT :IF INTERRUPTS ARE ENABLED. 

INTFLG(RS),R2  ;FETCH INTERRUPT OCCURRED FLAG. 

50110$ 

eS. SSR.RS ;SET UP A MASK FOR THE DONE BIT. 

STSSRCRS) ,R2 ;FETCH DONE BIT. 

TIME1 ;UPDATE TIMEOUT COUNTER 

R2 ;REPEAT UNTIL INTERRUPT OR READY OCCURES. 

50111$ 

TIME1 

50103$ 

TIME1 ;IF TIME OUT HAS OCCURRED: 

50112 

RECCNT(RS), @DATAWT 

PC ,MOVMSG ;MOVE CURRENT MSG PACKET TO COMMON AREA. 

4,NOINTH,STAERM ;REPORT NO INTERRUPT 
TRAP C#EROF 
. WORD 
“WORD NOINTH 
"WORD  STAERM 


@ENDERF RS 
PC, CLRERR 


PC 


sDROP THE UNIT. 
sLET R3 := @ENDERF 
sCLEAR ALL ERROR FLAGS 


sMOVE CURRENT MSG. a TO COMMON AREA. 
; UPDATE THE RECORD COUN 

sCHECK FOR STATUS ERRORS. 

sIFB WRTYFG EQ @0 THEN 


;LOG BYTES AND ERRORS. 
;LET R3_:= @ENDERF 
s;CLEAR ALL ERROR FLAGS 


sRETURN IF DONE. 





i ce ee ee a ee ee — 
? 


M6 | 
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GLOBAL SUBROUTINES SECTION 
1856 
1857 ; SUBROUTINE TO CLEAR my 
1858 : INPUTS: R3 = LWA TO BE CLEARED «+ 2. 
1859 : OUTPUTS: 
1860 3 REGISTERS: Re 
1861 3 CALLS: 
1862 
1863 012664 012702 003460 CLRERR:: MOV @BGNFLG ,R2 sLET R2 := OBGNFLG 
18664 012670 50115%: ;REPEAT 
1865 012670 005022 CLR CR2)-+ s;LET (R2)+ := 
1866 012672 020203 CMP R2,R3 sUNTIL R2 EQ as. 
1867 012674 001375 BNE 50115$ 
18668 012676 000207 R 
1870 
1871 3 SUBROUTINE TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 
18672 ; INPUTS: 
1673 : OUTPUTS: 
1874 : REGISTERS: 
1875 : CALLS: 
1876 
1877 012700 WSSR: : 
1878 012700 012767 177777 170530 MOV @-1,TIME1 sINIT TIMEOUT COUNTER. 
1879 012706 50116$: sREPEAT UNTIL DEV READY OR TIMEOUT: 
1680 012706 BREAK sBREAK TO THE SUPERVISOR. 
012706 104422 TRAP CS6RK 
1681 012710 005367 170522 DEC TIME1 sUP.ATE TIMEOUT COUNTER 
1862 012714 032775 000200 002524 BIT Ts.  ~ Peeaiaets ; UNTIL ots. SSR SETIN @TSSR(RS) OR TIME1 EQ 00 
1883 012722 001003 BNE 50117 
1884 012724 005767 170506 TST TIME: 
1685 012730 001366 BNE 50116$ 
18686 012732 50117$: 
1687 012732 000207 RTS PC ;RETURN. 
1688 
is 
1691 : SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 
1892 3 TO UPDATE THE CURRENT TERMINATION CLASS CODE. 
1693 3 INPUTS: 
1894 ; OUTPUTS: 
1695 ; REGISTERS: R2, R3. 
or ; CALLS: 
1696 012734 017567 002524 170512 MOVMSG: :MOV @TSSR(RS), TSSREG ;FREEZE THE STATUS REG CONTENTS 
1899 012742 016702 170506 MOV TSSREG ,R2 sEXTRACT THE TERMINATION CLASS CODE, 
1900 012746 042702 177761 BIC @TSC.TCC,R2 
1901 012752 010267 170472 MOV R2,.CTCC ;AND SAVE IT 
1902 012756 7 170466 ASR cTcc 
1903 012762 016503 MOV MSGPKACRS),R3 ;ADR OF THIS DEVICE'S MSG. 
1904 012766 005002 CLR R2 :C.& COUNTER. 
1905 012770 501208: 
1 012770 020227 000020 CMP R2, @MSGCNT ;WHILE THERE ARE MORE LOCATIONS: 
1907 012774 001405 BEG 501218 
1908 012776 012362 002354 MOV CR3)+ , MSGPKT(R2) sMOVE MSG TO COMMON AREA. 
toed 013002 062702 0000C2 ADD 02 ,R2 sUPDATE COUNTER. 
1911 013006 000770 BR 501208 . 








GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


1912 013010 
1913 013010 
1914 013016 
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016767 
000207 


167346 


170441 


003376 
000001 


100000 


170407 
170336 


003376 


004000 
000400 
000400 
003376 


000400 
000002 
170313 
170332 
170273 
003376 


14 JUN -84 


170464 


170410 
167316 


102010 


170316 
170306 
170302 


170264 
003502 


50124$: 


50130: 


50127$: 


2s: 

10$: 
50133$: 
50132$: 
50131$: 


50126%: 


SEG 0078 

MSGPKT oMS .xSO,EOTFLG sMOVE XSTATO TO EOT FLAG. 
RTS PC 
SUBROUTINE TO ADJUST THE RECORD COUNT. 
INPUTS 
OUTPUTS: 
REGISTERS: 
CALLS: 

:: TSTB RECLOG ;IF RECORD HAS NOT BEEN LOGGED: 

BNE 50122$% 
DEC RECCNT(RS) ;LET RECCNT(RS) := RECCNT(RS) - #1 
BIT #BITO,CTCC ;IF TAPE MOVED 
BNE 50123% 
BIT @X2 .OPM,MSGPKT +MS . xS2 
BEQ 50123% 
INCB RECLOG ;SET RECORD LOGGED 
CMP , ORWO iIF THIS IS A REWIND CMD: 
BNE 50124$% 
CLR RECCNT(RS) ;CLEAR RECORD COUNT, 

50125% 
BIT OBRF .C,CMDWRD :IF BRF USED, UPDATE RECORD COUNT. 
BEQ 50126% 
BIT .CO, CMDWRD :IF A FORWARD CMD: 
BNE 50127$% 
BIT enon .co, ;IF PREV CMD WAS A FwD ALSO: 
BNE 50130$% 
INC RECCNT(RS) ; INCREMENT RECORD COUNT. 

;IF REVERSE CMD: 

50131$ 
BIT #00 .CO, PCMDWD ;IF PREVIOUS CMD WAS A REV ALSO: 
BEQ 501328 
BIT @x0.BOT ,EOTFLGCRS) ;WHEN NOT AT BOT THEN 
BNE 50133% 
TSTB ERRREC ;CHECK THE ERROR RETRY INDICATOR 
BEQ es ;BR, IF WE ARE NOT NOW IN ERROR RETRY 
TSTB VFYFLG S CHECK THE WRITE VERIFY INDICATOR 
BEQ 2s ;BR, IF WE ARE NOT IN WRI/VFY MODE 
— RECLOG ;CHECK IF THIS RECORD HAS BEEN COUNTED 


;BR, IF HAVE ALREADY BUMPED RECORD CNTR. 
sDECREMENT RECORD COUNT. 


10% 
DEC RECCNTC(RS) 
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GLOBAL SUBROUTINES SECTION 

1969 

1970 013200 50125%: 

1971 | 

1972 0135200 501238: 

1973 013200 016577 003376 170200 MOV RECCNT(RS), @DATAWT sLET @DATAWT :* RECCNT(RS) 

1974 

1975 013206 501228: | 

1976 013206 000207 RTS PC sRETURN. 

1977 

1978 F THIS IS THE ERROR CHECK SUBROUTINE. AFTER INTERRUPT THIS | 

1979 8 SUBROUTINE IS CALLED TO CHECK THE TSOS STATUS. 

1980 F IF SPECIAL + on IS SET hs THE TCC HANDLING SUBROUTINE IS ENTERED. 

1961 F IF THE RFC IS NON ZERO FOR A COMMAND REQUIRING A BPCR, 

1982 3 THEN AN ERROR RFC IS REPORTED, 

1983 3 INPUTS: 

1964 3 OUTPUTS: 

1985 3 REGISTERS: R2, 

‘oe 3 CALLS: Teco” Tec7, 

1 

1988 013210 032767 100000 170236 CHKERR:: BIT @TS.SC, TSSREG sIF SPECIAL COND STATUS IS SET THEN: 

1969 013216 001441 BEQ 50134 

1990 013220 626727 170224 000002 CMP CTCC,@2 sIF TCC IS NOT 2 THEN: 

1991 013226 001405 BEQ 50135 

1992 013230 105767 170235 TST6 ERRREC sIF NOT IN ERROR RECOVERY: 

1993 013234 001002 BNE 50136$ 

fan 013236 005265 003336 INC SCCNT(RS) sINC SC COUNTER. 

1996 013242 50136$: 

1997 

1996 013242 501358: 

1999 013242 032767 004000 170204 BIT @TS.NXM, TSSREG ;WHEN NON-EXISTANT MEMO 

2000 013250 001004 BNE 50137% 

2001 013252 032767 040000 170174 BIT @TS.UPE, TSSREG 

2002 013260 001412 BEQ 501408 

2003 013262 50137$%: 

2004 013262 032767 100000 167076 BIT @X2 .OPM,MSGPKT +MS .xS2 sAND TAPE NOT MOVED 

2005 013270 001003 BNE 50141% 

— 013272 012702 000005 MOV @5,R2 ;SET TCCS INDEX 

2006 013276 000402 BR 501423 

2009 013300 501418: 

14 013300 012702 000004 MOV 04 ,R2 ;TAPE MOVED, SET 1CC4 INDEX 

2012 013304 501428: 

2013 

2014 033304 000402 BR 50143% 

2015 013306 501408: 

ay 013306 016702 170136 MOV CTCC,R2 sSET DETECTED TCC INDEX 

2016 013312 50143%: 

2019 013312 006302 ASL R2 sCURRENT TCC X 

— 013314 004772 013414 JSR PC ,@TCCRA(R2) 3GO TO THE TCC SANDLING SUBROUTINE . 

2022 013320 000426 BR 501443 

2023 013322 501348: 

2024 013322 032767 004000 170070 BIT @BRF .C ,CMDWRD :IF BRF IS USED IN THIS CMD THEN: 


2025 013330 001422 BEQ 50145% 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


2026 013332 
202 


013374 
2039 013376 
2041 013376 
2042 
2043 013376 
2045 013376 
2046 
2047 013376 
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005767 167022 
001417 
105767 170151 
001403 
105767 170144 
001411 
105767 170141 
006 


005265 003356 


105767 170065 
001403 
016767 170012 166716 


005265 003356 


1ST MSGPKT-MS.RFC ,IF THERE IS AN RFC THEN: 
BEQ 50146 
RANDOM :IFB RANDOM EQ 00 ORB VFYFLG NE 00 THEN 
BEQ «501478 
TSBs VF YFLG 
BEQ «501508 


501478: 
sIF NOT IN RANDOM OR IF CMD IS WTv: 
te IRE :IF RFC ERROR REPORTS ARE ALLOWED: 
INC HROCNT(RS ) sUPDATE HARD ERROR COUNT 
ERRHRD 13,RFCERM,STAERM sREPORT RFC ERROR 
TRAP CSERHRD 
-WORD 13 
-WORD RFCERM 
-WORD STAERM 
501518: 
501508: 
501465: 
501458: 
50144: 
TSTB RWERR 3IF A READ/WRITE ERROR HAS OCCURRED THEN: 
BEQ 50152$ 
MOV CMOSAV ,.CMDPKT sRESTORE CMD PACKET AFTER ERROR RECOV. 
501528: 
RTS PC sRETURN. 
8 ADORESSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS CODES 0 - 7. 
TCCRA: TCCO 
TCC1 
Tcc2 
Tcc3 
TCC4 
Tccs 
TCC6 
TCC7 
3 SUBROUTINE TO HANDLE TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 
3 CONDITION ERROR, 
3 INPUTS: 
$ OUTPUTS: 
3 REGISTERS: 
F CALLS: 
TCCO:: INC HROCNT(RS) sUPDATE HARD ERROR COUNT. | 
ERRHRD 5,SCERM,STAERM sREPORT SPECIAL CONDITION ERROR. | 
TRAP CSERHRD 
-WORD 5 
-WORD SCERM 
.WORD STAERM 





' 
| 
| 
i 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


2075 013450 
6 


20986 013470 
2093 013476 
2100 013500 
2101 013504 


2103 013506 


2105 013510 
tes 013510 


2108 
2109 013516 
2110 
2111 013520 
2112 013524 
2113 013526 


2114 013532 
2115 013534 


2116 

2117 013534 
2116 013540 
2119 013542 
2120 013546 
2121 013550 
2122 


2123 013554 
2124 013556 
2125 013556 


2126 
2127 013562 


MACRO M1115 


000207 


003512 


170002 


167771 
167764 


167761 


167723 


167714 


003336 


166664 


166644 


14 -JUN-84 18:32 


TCC1:: 


TCCe:: 


50153$: 


50155$: 


50160$: 


501615: 


SEQ 0081 


RTS PC sRETURN, 

SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1, gig — CONDITION. 

THIS = INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 

a tn GOING OFFLINE OR COMING ONLINE. 

OUTPUTS: 

REGISTERS: R2,R4 

CALLS: DROPU 

ERRDOF 6,ATTNM,STAERM sREPORT ATTENTION-UNIT OFF LINE. 
TRAP CSEROF 
-WORD 6 
-WORD  ATTNM 

STAERM 


JSR PC ,DROPU ;OROP THE UNIT. 
RTS PC ;RETURN, 


SUBROUTINE TO HANOLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 
- Bena CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 


HE PROGRAM. BITS OF INTEREST INCLUDE TMK, ALS, LET, RLL, BOT, EOT. 
INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 
BIT @xo. > ti MSGPKT +MS .xSO 
BEQ 50153 
TSTB EXPBOT 
BEQ 50153% 
IF AT BOT AND BOT IS EXPECTED: 
BR TC2RTN ; RETURN - TCC2 CAUSED BY EXPECTED BOT. 


BIT @X0.RLS!XO.RLL!XO. TMK!XO.LET!X0.BOT ,.MSGPKT «MS .xSO 


sIF @XO.RLS!XO.RLL!XO. TMK!IXO.LET!XO.BOT SETIN MSGPKT+MS.XSO THEN 


BEQ 50154$ 
sIF TCC2 CAUSED BY ANYTHING BUT EOT: 

TST8 a sIFB RANDOM EQ #0 ORB VFYFLG NE 00 THEN 
TSTB VF YFLG 

50156% 

sIF NOT IN RANDOM OR IF CMD IS WTV: 
TSTB sIF RFC ERROR REPORTS ARE ALLOWED: 
TSTB E sIF WE ARE IN ERROR RECOVERY THEN: 
BEQ 50160% 
INCB UNREC sSET UNRECOVERABLE FLAG FOR LOG. 
sELSE - IF NOT IN ERROR RECOVERY: 

BR 501618 


INC SCCNTCRS) s INCREMENT THE SPEC COND COUNTER. 
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GLOBAL SUBROUTINES SECTION 
2128 013562 005265 003356 INC HROCNT(RS ) ;UPDATE HARD ERROR COUNT. 
2129 013566 ERRHRD 7,TSAM,STAERM sREPORT TAPE STATUS ALERT. 
013566 104456 TRAP § CSERHRD 
013570 000007 . WORD 
013572 004705 ;WORD  TSAM 
013574 006120 .WORD  STAERM 
2130 
2131 013576 50157$: 
| page 
——s«:B133 013576 50156$: 
Bue 
2135 013576 501548: 
i. am 
| 9137 013576 000207 TCORTN: RTS PC ;RETURN. 
OBS 
| 2140 : SUBROUTINE TO HANDLE TERMINATION CLASS CODE 3, FUNCTION REJECT. 
2141 : THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 
2142 ; RMR, OFL, VCK, BOT, ILC, WLE, ILA, AND NBA. 
| 2143 : INPUTS: 
2144 ; OUTPUTS: 
| 2145 : REGISTERS: R2,R4 
2146 ; CALLS: DROPU 
1 
2148 013600 TCC3:: ERROF  8,FUNRM,STAERM ;REPORT FUNCTION REJECT. 
013600 104455 TRAP  CSEROF 
013602 000010 ’ .WORD 8 
013604 004622 “WORD FUNRM 
013606 006120 -WORD  STAERM 
2149 013610 004767 003364 JSR PC ,DROPU ;DROP THE UNIT. 
2150 013614 000207 RTS PC ;RETURN, 
2152 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 4, RECOVERABLE ERROR. 
2153 : TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 
2154 ; THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
2155 ; ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND 
2156 ; 2 WRITE-ERROR-RECOVERY ALGORITHMS CAN BE SELECTED: 
2157 ; THE FIRST ONE, VIA BADTSW SWITCH, DOES DETECT BAD SPOTS ON TAPE. 
2158 ; IT CALLS A WRITE RETRY SUBR UNTIL THE RECORD IS RECOVERED 
2159 ; OR 20 BAD SPOTS HAVE BEEN LOGGED. ON REACHING 20 BAD 
2160 ; SPOTS LOGGED, A BAD TAPE OVERFLOW MSG IS PRINTED AND THE 
2161 ; UNIT DROPPED. 
2162 ; THE SECOND ALGORITHM ISSUES THE TSOS WRITE RETRY COMMAND 
2163 ; UP TO 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 
2164 ; WITH THE NEXT RECORD ON RECOVERY. 
2165 : INPUTS: 
2166 ; OUTPUTS: 
2167 : REGISTERS: R2,R4. 
2168 ; CALLS: RTLE, EXCUTE, GOWAIT, DROPU, WRTY 
2170 013616 026727 167604 000002 TCC4:: CMP CMOLG, 02 ;IF CMOLG EQ #2 ANDB BADTSW NE 00 THEN 
2171 013624 001125 BNE 50162$ 
2172 013626 105767 166356 TSTB  BADTSW 
2173 013632 001522 BEQ 50162$ 
2174 013634 105767 167631 TSTB ERRREC ;IFB ERRREC EQ 00 ANDB ERCVER NE 00 THEN 
2175 013640 001007 50163¢ 


BNE 
2176 013642 105767 166341 TSTB ERCVER 
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GLOBAL AREAS MACRO M1113 14-JUN-84 18:32 ; SEQ 0083 
, GLOBAL SUBROUTINES SECTION 

2177 013646 001404 BEQ 50163$ 

2178 013650 ERRSOFT 9,RERM,STAERM  ; 
013650 104457 TRAP CSERSOF T 
013652 000011 -WORD 9 
013654 005017 -WORD RERM 

- 013656 006120 -WORD STAERM 

21 

2180 013660 50163$: 

2161 013660 105767 166327 TSTB IREC sIFB IREC EQ 00 THEN 

21862 013664 001102 BNE 50164$ 

2183 013666 105267 167577 INCB ERRREC sRETRY FLAG FOR EXCUTE SUBR: DON’T UPDATE REC CN 

2184 013672 105267 167566 INCB WRTYER sREWRITE ERROR FLAG FOR WRTY SUBR 

2185 013676 105767 167561 TSTB WRTYFG sFIRST RETRY ON THIS RECORD: SUBSEQUENT 

2166 013702 001072 BNE 50165$ 

2187 sRETRIES WITH TCC4 ERRORS BY-PASS THIS SECTION 

2168 013704 016767 167510 001174 MOV CMOWRD, he sSAVE WRITE COMMAND PACKET 

2189 013712 016767 166412 001164 MOV CMDPKT , WTYCMD 

2190 013720 016767 166412 001162 MOV CHOPKT «CP. CNT ,WTYBRF 

2191 013726 105267 167535 INCB sLOG SUBR FLAG: — WRT ERRORS 

pe 013732 105267 167525 INCB URTYFG SRETRY IN PROGRESS FLAG 

2194 013736 501665: sREPEAT 

2195 013736 005265 003316 INC WRIYCTCRS) sCOUNT GLOBAL WRITE RETRIES 

2196 013742 005067 167512 CLR RETRYC sCLEAR @ OF RETRIES PER RECORD 

2197 013746 105067 167510 CLRB RPTCNT sCLEAR @ OF ae" 

2196 013752 004767 000660 JSR PC ,WRTY sCALL WRITE RETR 

2199 013756 105767 167502 TSTB WRTYER sREPEAT RETRIES ON SAME RECORD 

2200 013762 001404 BEG 50167$ 

2201 013764 027727 167522 000050 CMP aBTPT,o40, 

2202 013772 103761 0 50166$ 

2203 013774 50167$: 

2204 sUNTIL RECOVERED OR 20 BAD SPOTS 

2205 013774 027727 167512 000050 CMP @BTPT,@40. s;WHEN 20 BAD SPOTS LOGGED 

2206 014002 103423 BLO 50170$ 

2207 014004 PRINTB @BTMSG2 sPRINT BAD TAPE OVERFLOW MSG 
014004 012746 015177 MOV @BTMSG2, -( SP) 
014010 012746 000001 MOV #1,-(SP) 
014014 010600 MOV SP ,RO 
014016 104414 TRAP C$PNTB 
014020 062706 000004 ADD @4,SP 

2208 014024 004767 001266 JSR PC ,BORERS sERASE BAD RECORD 

2209 014030 005365 003376 DEC RECCNTC(RS) 

2210 014034 004767 003140 JSR PC ,DROPU sDROP UNIT 

2211 014040 005065 003376 CLR RECCNT(RS) 

= 014044 012775 002350 002514 MOV @RWCPK , BTSOBCRS ) sREWIND UNIT 

2214 014052 50170$: 

2215 014052 105067 167405 CLRB WRT YFG sRETRY COMPLETE FLAG 

2216 014056 105267 167447 INCB MISCFG 300 NOT HALT ON THIS CMO FLG 

oes 014062 016767 001020 167334 MOV WTYWRD , PCMDWD sRESTORE ORIGINAL WRT CMD AFTER RECOVERY 

2219 014070 50165$: 

2220 

2221 014070 000402 BR 50171$ 

2222 014072 50164$: 


ose 014072 105267 167372 INCB UNREC sLET UNREC :6= UNREC + #1 ; 





G7 
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GLOBAL SUBROUTINES SECTION 
2225 014076 501718: 
2226 
2227 914076 000454 BR 50172$ 
2228 014100 50162$: 
2229 014100 004767 000404 JSR PC,RTLE sCHECK FOR RETRY LIMIT a 
2230 014104 026727 167316 000002 CMP CMOLG, #2 sIF READ CMO THEN 
2231 014112 003411 BLE 50173$ 
2232 014114 012702 000020 MOV @RRECL ,R2 sR2*READ RETRY COUNT LIMIT / 2 
2233 014120 006202 ASR Re 
2234 014122 026702 167332 CMP RETRYC,R2 sIF RETRY COUNT IS MORE THAN HALF LIMIT: 
2235 014126 002403 BLT 50174$ 
4 014130 052767 020000 166172 BIS SOPP.C,CMDPKT sSET OPPOSITE BIT FOR RETRY2. 
22 
2238 014136 50174$: 
2239 
2240 014136 50173$: 
2241 014136 005767 167316 TST RETRYC sIF THIS IS THE ORIGINAL ERROR THEN: 
2242 014142 001007 BNE 50175$ 
2243 014144 105767 166037 TSTB ERCVER 
2244 014150 001404 BEQ 50175$ 
2245 014152 ERRSOFT 9,RERM,STAERM ;REPORT RECOVERABLE ERROR 
014152 104457 TRAP CSERSOFT 
014154 000011 9 
014156 005017 -WORD RERM 
014160 006120 -WORD  STAERM 
2246 sPROVIDED OPERATOR HAS ENABLED THE REPORT 
2247 014162 50175$: 
2248 014162 005267 167272 INC RETRYC sUPDATE RETRY COUN 
2249 014166 052767 001000 166134 BIS 100 ..C1, CMOPKT iSET RETRY BIT IN CHO PACKET. 
2250 014174 105767 1660135 TSTB IREC sIF ERROR RECOVERY ENABLED: 
2251 014200 001011 BNE 50176$ 
2252 014202 105267 167265 INCB ERRREC sSET ERROR RECOVERY FLAG. 
2253 014206 012602 MOV (SP)+,R2 sPOP 2 RTN ADRS FROM STACK, 
2254 014210 012602 MOV (SP)+,R2 
2255 014212 004767 175636 JSR PC ,EXCUTE GO EXECUTE THE RETRY COMMAND. 
2256 014216 000167 176142 JMP GOWAIT :GO WAIT "FOR INTERRUPT + CHECK STATUS. 
2257 sELSE IF ERROR RECOVERY IS NOT ENABLED: 
2258 014222 000402 50177$% 
2259 014224 50176$: 
say 014224 105267 167240 INCB UNREC sSET UNRECOVERABLE ERROR FLAG. 
2262 014230 501778: 
2263 
2264 014230 501728: 
poe 014230 000207 RTS PC sRETURN 
2267 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5, RECOVERABLE ERROR. 
2268 ; TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
2269 ; ERROR AND RE-ISSUE THE ORIGINAL COMMAND. 
2270 ; INPUTS: 
2271 ; OUTPUTS: 
2272 ; REGISTERS: R2,R 
3578 5 CALLS: RILE, "EXCUTE, GOWAIT, DROPU. 
2275 014232 004767 000252 TCCS:: JSR PC,.RTLE sCHECK FOR RETRY LIMIT EXCEEDED 
2276 014236 005767 167216 TST RETRYC sIF THIS IS THE ORIGINAL ERROR THEN 


2277 014242 001004 BNE 50200$ 
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GLOBAL SUBROUTINES SECTION 


2278 014244 
014244 


2294 
2295 014326 
2296 014326 


2 
2310 014330 
2311 014336 


2312 
2313 014340 
2314 344 


167200 
165727 


167177 
003376 
003376 


175540 
176044 


167142 


163454 
167062 


167115 
167112 


002606 


000110 
167054 


167102 


166032 


SEQ 0085 
ERRSOFT 10,RERM,STAERM ;REPORT RECOVERABLE ERROR. 
TRAP CSERSOFT 
. WORD 10 
.WORD RERM 
.WORD STAERM 
50200$: 
INC RETRYC sUPDATE RETRY COUNTER. 
TSTB IREC sIF ERROR RECOVERY IS ENABLED: 
BNE 50201$ 
INCB ERRREC 3SET ERROR yo pe FLAG. 
INC RECCNTCRS) sUPDATE REC COUN 
MOV RECCNT(RS), BDATAWT Taw INSERT * ken WRT BFR 
MOV )+,R2 3sPOP 2 RIN ADRS FROM S 
MOV (SP )+,R2 
JSR PC ,.EXCUTE 3GO RE-ISSUE THE COMMAND. 
JMP IT 3GO WAIT FOR INTERRUPT + CHECK STATUS. 
sELSE IF ERROR RECOVERY IS NOT ENABLED: 
50202$ 
50201$: 
INCB UNREC 3SET UNRECOVERABLE ERROR FLAG. 
502028: 
RTS PC sRETURN. 
3 INE TO HANDLE TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR. 
3 TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE 
3 IS TO REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR 
3 SEQUENCE NUMBERS. THIS DIAGNOSTIC WILL REWIND AND RETRY THE 
$ COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 
; DROPPED FROM THE TEST SEQUENCE. 
3 INPUTS: 
3 OUTPUTS: 
3 REGISTERS: R2, R4 
3 CALLS: RTLE, WSSR, EXCUTE, GOWAIT, DROPU 
TCC6:: a ts + + aeattatancteactaanads X3.D0CK NOTSETIN MSGPKT+MS.xXS3 THEN 
sIF THERE IS NO DENSITY CHECK THEN: 
TST CMOLG sIF CMD IS A READ OR WRITE THEN: 
BEQ 50204$ 
INCB RWERR sSET RO/WR ERROR F 
INCB UNREC 3sSET UNRECOVERABLE. ERROR FLAG. 
50204: 
ERROF 11,URERM, STAERM sREPORT UNRECOVERABLE ERROR. 
TRAP CSEROF 
e 11 
E URERM 
.WORD STAERM 
JSR PC ,OROPU ;REPORT ERROR + DROP UNIT. 
;ELSE-IF THERE Is DENSITY CHECK: 
BR 50205$% 
50203: 
JSR PC,RTLE ;CHECK FOR RETRY LIMIT EXCEEDED. 
TST RETRYC 3IF THIS IS THE ORIGINAL ERROR THEN: 
BNE 50206$ 
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2327 ene 


2372 014510 
2373 014514 
2374 014516 

014516 


| 
ae 
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GLOBAL SUBROUTINES SECTION 


005767 
001010 


104455 


167036 
167073 


167035 
002350 
176232 


175376 
175702 


167000 


002472 


166712 


002514 


50206$: 


50207$: 


50210$: 


TCC7:: 


RTLE:: 


17 


SEQ 0086 
ERRSOFT 11,URERM,STAERM sREPORT DENSITY CHECK ERROR 
TRAP CSERSOF T 
-WORD 11 
-WORD URERM 
-WORD  STAERM 
INC RETRYC sUPDATE RETRY COUNT. 
TSTB IRE sIF ERROR RECOVERY IS ENABLED THEN: 
BNE 50207$ 
INCB ERRREC sSET ERROR RECOVERY FLAG, 
MOV @RUWCPK , ATSOBCRS ) s ISSUE A REWIND COMMAND, 
JSR PC,WSSR ;WAIT FOR SUBSYSTEM READY, 
MOV (SP)+,R2 sPOP 2 RTN ADRS FROM STACK. 
MOV (SP )+,R2 
JSR PC ,EXCUTE sREISSUE THE COMMAND, 
JMP GOWAIT sWAIT FOR INTERRUPT 
sELSE-IF ERR REC DISABLED: 
BR 502108 
INCB UNREC s;SET UNRECOVERABLE ERROR FLAG. 
RTS PC sRETURN 


SUBROUTINE TO HANOLE TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 
ERROR. THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING 
COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. 
REFER TO THE FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR 
8H INFORMATION ON THE TYPE OF FATAL ERROR. 


OUTPUTS: 
REGISTERS: R2, R4 
CALLS: 
ERROF 12,FATSM,STAERM sREPORT FATAL SUBSYSTEM ERROR. 
TRAP CSERDF 
-WORD 12 
. WORD FATSM 
STAERM 
JSF PC ,OROPU ;O0ROP THE UNIT. 
RTS PC sRETURN. 


SUBROUTINE TO CHECK FOR RETRY LIMIT noe ae gl PRINTS ERROR MESSAGE 
4 — AND DROP UNIT UNLESS COMMAND IS A READ. 


OUTPUTS: 

REGISTERS: R2, R4. 

CALLS: DROPU 

TST —. ;IF CMD IS NOT A READ OR WRITE THEN: 
BNE 50211$ 


ERROF 11,URERM,STAERM ;REPORT UNRECOVERABLE ERROR. 
TRAP CSEROF 


S$ A A a a —_—— 
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GLOBAL AREAS MACRO M1113 14-JUN-84 18:32 SEQ 0087 
GLOBAL SUBROUTINES SECTION 





014520 000013 «WORD 11 
014522 005041 -WORD URERM 
014524 006120 -WORD STAERM 
2375 014526 004767 002446 JSR PC ,DROPU sDROP THE UNIT 
2376 014532 012602 MOV (SP)+,R2 sPOP RIN ADRS FROM STACK. 
2377 014534 000437 BR RTLRITN sAND RETURN. 
2378 
2379 014536 502118: 
2380 014536 105267 166725 INCB RWERR sSET READ/WRITE ERROR FLAG. 
2381 014542 026727 166660 000002 CMP CMOLG, 2 sIF CMD IS A WRT OR WTM: 
23862 014550 001016 BNE 50212$ 
2383 014552 026727 166702 000020 CMP RETRYC, @WRECL sIF RETRY COUNT HAS REACHED LIMIT: 
2384 014560 001011 BNE 50213 
2385 014562 105267 166702 INCB UNREC ;SET UNRECOVERABLE FLAG 
2386 014566 ERRDF 14,RLEXM,STAERM ;REPORT RETRY LIMIT EXCEEDED. 
4 104455 TRAP CSERDF 
014570 000016 . WORD 
014572 004556 -WORD RLEXM 
014574 006120 -WORD STAERM 
2387 014576 004767 002376 JSR PC ,DROPU sOROP THE UNIT. 
2388 014602 012602 MOV (SP)+,R2 sPOP 2 RTN ADRS FROM STACK. 
2389 014604 50213$: 
2390 sELSE - CMD IS A READ: 
2391 014604 000413 BR 50214$ 
2392 014606 50212$: 
2393 014606 026727 166646 000020 CMP RETRYC, ORRECL 3IF RETRY COUNT HAS REACHED LIMIT: 
2394 014614 001007 50215$ 
2395 014616 105267 166646 INCB UNREC sSET UNRECOVERABLE FLAG 
2396 014622 ERRHRD 14,RLEXM,STAERM FREPORT RECOVERABLE ERROR. 
014622 104456 TRAP CSERHRD 
014624 000016 -WORD 14 
014626 004556 -WORD RLEXM 
014630 006120 -WORD STAERM 
2397 014632 012602 MOV (SP)+,R2 sPOP 2 RTN ADRS FROM STACK. 
2398 014634 50215$: 
2399 
2400 014634 50214$: 
os 014634 000207 RTLRTN: RTS PC ;RETURN 
2403 3 SUBR TO REWRITE A BAD, BUT RECOVERABLE WRITTEN RECORD. 
2404 3 REWRITE RECORD ON SAME SPOT: REPEAT 4 TIMES. 
2405 3 IF ALL 4 REPEATS . REC IS RECOVERED 
2406 F AND A RECOVERABLE WRITE ERROR IS LOGGED. 
2407 3 IF ANY OF 4 REPEATS BAD, ERASE BAD RECORD, LOG SUSPECTED 
2408 ; BAD SPOT, RETRY AGAIN. RETRY 4 TIMES, UP To 4 REPEATS EACH. 
2409 ; IF RECORD NOT GOOD AFTER 4 RETRIES, ERASE IT, EXIT WITH 
2410 $ ERROR FLAG WRTYER SET, PRINTING RETRY FA ILE. 
2411 : THIS ALL SCHEME IS REENTERED 20 TIMES MAX, IE 20 BAD 
2412 3 SPOTS MAX ARE ALLOWED. 
2413 ; 
2414 3 INPUTS: 
2415 $ OUTPUTS: 
2416 $ REGISTERS: R3,R4 
ost? ; CALLS: BORERS, REWRT 


2418 
2419 014636 :: sBEGIN RETRY sREPEAT 
2420 
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2421 014636 
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SUBROUTINES SECTION 


166524 


50217$: 


502218: 


50222$: 
502208: 


50223: 


50225$: 


KK 7 


SEQ 0086 
;BEGIN REPEAT sREPEAT 

JSR PC ,BORERS sBACKSPACE/ERASE ONE RECORD 

CLRB WRTYER sCLEAR WRITE RETRY ERROR 

JSR PC ,REWRT sREWRI ORD ON SAME SPOT 

INCB RPTCNT ;COUNT REPEATS 

CMPB RPTCNT , 04 sLIMIT: 4 REPEATS OR RECOVERED 

BEQ $0222$ 

TSTB WRTYER 

BEQ 50221$ 

sEND REPEAT 

INC RETRYC ;COUNT RETRIES 

TSTB WRTYER 

BNE $0223% 

BR 50216$% sEXIT RETRY LOOP IF RECOVERED 

TSTB ERCVER ;IFB ERCVER NE #0 THEN 

EQ 50225$% 

PRINTB #@BTMSG1,RETRYC,<B,RPTCNT> ;PRINT ster iene") sian 
BI RPTCNT (SP) 
MOV RETRYC, -(SP) 
MOV @BTMSG1, -( SP) 
MOV @3,-C(SP) 
MOV RO 
TRAP CSPNTB 
ADD #10,SP 

CMP RETRYC,@1 3;0N FIRST RETRY, LOGG BAD SPOT 

BNE 50226% 

MOV BTADCRCRS),BTPT ;BTPT IS BOTH THE BAD SPOT COUNTER 

MOV SBTPT,R4 sAND THE LOGGING INDEX 

ADD @2,R4 

MOV R4,aBTPT 

CMP R4,040. 3IF R4 LOS #40. THEN 

BHI 50227$% 

MOV BTPT,R3 sSTORE FIRST ” BAD SPOTS 

ADD R3,R4 ;LET R4 := R4 

MOV RECCNT(RS),(R4) ;LET (R4) := RECCNT(RS) 

INC8 ERSFLG s;ERASE FLAG TO ERASE BAD RECORD 

CLRB RWERR ;CANCELL "LCG" ERROR FLAG ON FAILING RET 

CLRB RPTCNT :;CLEAR REPEAT COUNT FOR NEXT RETRY 

CMP RETRYC, 04 ;LIMIT: 4 RETRIES 

BNE 59217$ 

;END RETRY 





GLOBAL AREAS 


= 015102 
6 015102 
2479 015102 


2482 
2483 015110 
2484 
2485 0151 4 


2486 015177 


MACRO M1113 14-JUN-84 16:32 
GLOBAL SUBROUTINES SECTION 


105767 
001413 


012746 
012746 
010600 
104414 
062706 


166412 
165127 


015247 
000001 


000004 


BTMSG1: 


BTMSG2: 


BIMSG3: 


TSTB WRTYER ;IFB WRTYER NE #0 THEN 
BEQ 50230$ 

TSTB ERCVER sIFB ERCVER NE #0 THEN 

BEQ 50231$ 


PRINTB @BTMSG3 sPRINT RETRY FAILED 
MOV OBTMSGS, -( SP) 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP CSPNTB 
ADD 04, 
RTS PC 
: .WORD O sSTORAGE FOR WRITE CMD WHILE RETRYING 
-WORD O sSTORAGE FOR WRITE CMD WORD WHILE RETRYING 
:; .WORD O sSTORAGE FOR WRITE BPCR WHILE RETRYING 


-ASCIZ /#ASUSPECT BAD SPOT AFTER #D18A RETRY, #D1SA REPEATSN/ 


-ASCIZ /SNSABAD TAPE OVERFLOW: CHANGE TAPE !sNsN/ 


-ASCIZ /#ARETRY FAILED ON BAD SPOT. ..ERASED!SN/ 





GLOBAL AREAS MACRO M1113 14-JUN-84 16:32 SEQ 0090 
GLOB AL SUBROUTINES SECTION 


015274 123 120 
015277 117 124 056 
015302 0S6 056 2 


015 
015310 105 104 041 
015313 045 116 000 
2488 -EVEN 


2489 
2490 ; SUBR TO BACSPACE ONE RECORD 
2491 ; IF THE ERASE FLAG IS SET, THEN ERASE THAT RECORD 
2492 ; INPUTS: ERSFLG 1 = DO ERASE 
2493 ; OUTPUTS: 
2494 ; REGISTERS: 
2495 ; CALLS: EXCUTE, GOWAIT, CKHAE 
2496 
2497 015316 016767 166076 166100 BORERS: :MOV CMOWRD.PCMDWD ;SET COMMAND By: SPACE a 
2498 015324 012767 104410 166066 MOV @SRR , CMDWRD sLET CMOWRD : 
2499 015332 016767 166062 164770 MOV CMDWRO , CHDPKT SLET CMDPKT := CMDWRD CLR. BY 2BRF.C ; 
2500 015340 042767 004000 164762 BIC @BRF .C,.CMOPKT 
2501 015346 016767 164756 166046 MOV CMDPKT,.CMDSAV ;LET CMDSAV := CMDPKT 
2502 015354 012767 000001 164750 MOV @1,CMDPKT+CP. ADL sLET CMDPKT+CP. ADL :* #1 ; 
2503 015362 005067 166040 CLR CMOLG ;LET CMOLG := 20° ; 
2504 015366 004767 173472 JSR CMDAC ; 
2505 015372 004767 174456 JSR PC ,EXCUTE ; 
2506 015376 004767 174762 JSR PC .GOWAIT ; 
2507 O1 004767 002072 JSR ° 
2506 015406 105767 166115 TSTB ERSFLG sWHEN ERASE FLAG IS SET, DO ERASE 
015412 001 BEQ 32 
2510 015414 016767 166000 MOV ° sLET PCMOWD := CMDWRD ; 
2511 01 012767 100411 165770 MOV @ERS , CHOWRD sLET CMOWRD := GOERS =; 
2512 015430 016767 165764 164672 MOV CMDWRD , CMDPKT sLET CMDPKT := CMDWRD ; 
2513 015436 016767 1 165756 MOV CMDPKT , CMDSAV ;LET CMDSAV := CMDPKT ; 
2514 015444 004767 173414 JSR CMDAC ; 
2515 915450 004767 174400 JSR PC ,EXCUTE 
2516 015454 004767 174704 JSR . 
2517 015460 004767 002014 JSR ‘ 
os 015464 105067 166035 CLRB ERSFLG ;sLET ERSFLG :B= 00 
2520 015470 50232% 
— 015470 000207 RTS PC 
Ey ; SUBR TO REWRITE A BADLY WRITTEN RECORD 
2525 015472 016767 165722 165724 REWRT:: MOV CMOWRD.PCMDWD ;RESTORE MATTE COMMAND PACKET 
2526 015500 016767 177402 165712 MOV WTYWRD,.CMDWRO ;LET CMDWRD := WIYWRD ; 
2527 015506 016767 177372 164614 MOV WTYCMD , CHDPKT iLET CMDPKT := WTYCMD 
2526 015514 016767 164610 165700 MOV CMDPKT,CMDSAV ;LET CMDSAV := CMDPKT 
2529 015522 016767 165660 164602 MOV DATAWT , CMDPKT «CP. ADL sLET CMDPKT+CP. ADL :* DATAWT ; 
2530 015530 016767 177354 164600 MOV WTYBRF ,CMDPKT «CP .CNT sLET CMOPKT+CP.CNT := WTYBRF ; 
2531 015536 012767 000002 165662 MOV @2,CMDLG sLET CMDLG := 02 ; 
2532 015544 004767 173314 JSR PC, CMDAC 
2533 015550 004767 174300 JSR PC ,EXCUTE sRE-WRITE RECORD 
2534 015554 004767 174604 JSR PC ,GOWAIT ; 
2535 015560 004767 001714 JSR . CKMAE ; 
2536 015564 000207 RTS PC 





Gi OBAL 
Gi OBAL 


2570 015670 
2571 015672 


2574 015700 
2575 015700 
2576 015704 
2577 015706 
2578 015712 
2579 


25860 015714 
2581 015716 


2584 015724 


2589 

2590 015740 
2591 015742 
2592 015742 
2593 015746 


ART AS 
SUBROUTT 


MACRO 1115 


NES SECTION 


14 -JUN-64 16:32 


016052 
002626 


066712 165564 
026767 164522 165556 


166712 164512 


062703 000010 


021227 001747 
162712 001750 


062702 090010 
021327 001747 
003404 

162713 001750 


062703 000010 
021227 001747 
003404 

162712 001750 
0052 


105767 165521 


LOG:: 


50243$: 


N/ 


SUBROUTINE TO LOG BYTES READ/WRITTEN. 
A gta READ/WRITE ERROR COUNTERS 


BEG 50244$ 


a a ee ae ee 


s;SUBTRACT RFC FROM EXPECTED BRF. 


;2ND WORD. 


s#R2 = ADR OF SRD WORD. 


:3RD WORD. 


3R3 = ADR OF 4TH WORD. 


34TH WORD. 


OuTPuUTS: 
REGISTERS: R2, RB, RA. 
CALLS: 
TSTB = ERLOG :IF DATA AND ERRORS HAVE NOT BEEN LOGGED THEN: 
BNE 50233 
INCB = ERLOG :SET LOG DONE FLAG. 
MOV CMOLG.R4 :GET CURRENT CMD LOGGING CODE. 
TST Ra ;IF THERE IS A CODE THEN: 
BEQ 50234 
SUB @2,.A4 ;ADJUST THE CODE FOR TABLE INDEX. 
MOV RS, ;R2 = ADR OF BYTE COUNT LSw. 
oo BINC(R4),R2 
ADO BRFCNT ,(R2) ;ADD BRF TO LSW. 
CMP MSGPKT+MS.RFC.BRFCNT ;IF THE RFC IS LOWER OR THE SAME AS BRF THEN 
BHI 50235 
SUB MSGPKT «MS .RFC,(R2) 
* MOV R2,R3 ;R3 = ADR OF 2ND WORD. 
ADO @10,R3 
: WHILE (R2) GT 0999. DO 
CMP (R2), 0999. 
BLE 50237 
SUB #1000. , (R2) ;UPDATE BYTE COUNT 
INC (R3) ;LET (R3) := (R3) + O21 
BR 50236$ 
MOV R3,R2 ;LET R2 := RB + 010 
ADD #10,R2 
:  gWHILE (R3) GT 999. DO 
CMP (R3), 0999. 
BLE 50241 
SUB #1000. ,(R3) ;UPDATE BYTE COUNT 
INC (R2) sLET (R2) := (R2) + M1 
BR 50240$ 
MOV R2,R3 ;LET R3 := R2 + 010 
ADD 610, 
;WHILE (R2) GT #999. DO 
CMP (R2), 0999. 
BLE 50243$ 
SUB #1000. ,(R2) ; UPDATE BYTE COUNT 
INC (R3) ;LET (R3) := (R3B) + M1 
BR 50242$ 
TSTB  RWERR 


;IF R/W ERROR, UPDATE ERROR COUNT. 


be 


GLOBAL AREAS MACRO M1113 14-JUN-84 18:32 SEO 0092 
GLOBAL SUBROUTINES SECTION 

2594 015750 010502 MOV RS ,R2 sR2 = ADR OF COUNTER. 

2595 015752 066402 016060 Add EINC(R4),R2 

25% 015756 062702 002766 ADO OWRREC ,R2 

2597 015762 105767 165502 TsT8 UNREC sIS THE ERROR UNRECOVERABLE ? 

2598 015766 001404 BEQ 502453 

2599 015770 062702 000010 ADO #10,R2 sYES, POINT TO NEXT a 

2600 015774 005212 INC (R2) sUPDAT E THE ERROR COUNTE 

2601 sELSE - IF ERROR IS NE COVERAGLE ; 

2602 015776 000424 BR 502468 

2603 016000 502458: 

2604 01 005212 INC (R2) sUPDATE THE ERROR COUNTER 

2605 016002 105767 164205 TSTB IREC sIF ERROR RECOVERY IS ENABLED: 

2606 01 001 BNE 50247% 

2607 016010 105767 165506 TST8 OROPED :IF UNIT HAS NOT BEEN DROPPED: 

2608 016014 001015 BNE 50250% 

2609 016016 105767 164165 TsTe6 ERCVER 

2610 016022 001412 BEQ 502508 

2611 016024 PRINTB O@NURTY1,RETRYC sPRINT @ OF RETRIES TO RECOVER 
016024 016746 165430 MOV RETRYC, -(SP) 
016030 012746 2 MOV ONMURTY1. -( SP) 
016034 012746 MOV @2,-(SP) 
016040 010600 MOV SP RO 
016042 104414 TRAP CSPNTB 
016044 062706 000006 ADO 06 .SP 

2612 sPROVIDED PRINT HAS BEEN ENABLED 

2613 016050 502508: 

2614 

2615 016050 50247$: 

2616 

2617 

2618 016050 502465: 

2619 

2620 016050 502445: 

2621 

2622 016050 50234: 

2623 

2624 016050 502338: 

2625 016050 000207 RTS PC 

2627 3 INDEXES TO BYTE COUNTERS. 

2628 016052 000000 BINC: 0O s;WRITE. 

2629 016054 000040 oe wen REV. 

2630 016056 000100 AD Fu. 

2631 3 THOEXES TO READ/WRITE ERROR COUNTERS, 

2632 016060 000000 EINC: " 

2633 016062 000020 30 }READ REV. 

a 016064 000040 ao sREAD FWD. 

2636 3 IF A WRITE/VERIFY COMMAND IS ISSUED, CONTROL IS THEN 

2637 3 TRANSFERRED TO THIS SUBROUTINE TO READ REVERSE, CHECK DATA, 

26 $ READ FORWARD, CHECK DATA, THEN CONTINUE TO NEXT COMMAND . 

2639 3 INPUTS: 

2640 3 OUTPUTS: 

2641 : REGISTERS: 

— 3 CALLS: VFEXC. 

2644 016066 105767 165424 VF YDAT: : TSTB VF YFLG sIF DATA IS TO BE VERIFIED: 





GLOBAL AREAS MACRO M1113 14-JUN-84 16:32 SEQ 0093 
GLOBAL SUBROUTINES SECTION 
2645 016072 001426 BEQ 502515 
2646 016074 016767 165320 165322 MOV CMOWRD , PCMOWD sSAVE THE PREVIOUS COMMAND WORD. | 
2647 016102 012767 104401 165310 MOV @ROR , CHOWRD :COMMAND IS READ REV 
2648 016110 012767 000004 165310 MOV 04, CMOLG sSET UP CMD LOGGING INDEX. 
2649 016116 004767 000030 JSR PC, VFEXC 1GO READ ALL THE RECORDS REV. 
2650 016122 016767 165272 165274 MOV CMDWRO , PCMOWD }SAVE THE PREVIOUS COMMAND WORD 
2651 016130 012767 104001 165262 MOV OROF , CHDWRD sCOMMAND IS READ FWD. 
2652 016136 012767 000006 165262 MOV 06 , CHOLG :SET UP CMD LOGGING INDEX. 
2653 016144 004767 000002 JSR PC. VFEXC 1GO READ ALL RECORDS Fwo. 
2654 
2655 016150 502518: 
2656 016150 000207 RTS PC RETURN, 
2657 
2658 
2659 
2661 : SUBROUTINE TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE. 
| 2662 ; INPUTS: 
2663 ; OUTPUTS: 
2664 ; REGISTERS: R2 
| 2667 016152 016767 165242 164150 VFEXC:: MOV CMDWRD.CMDPKT  ;COMMAND PACKET » READ REV OR Fw. 
| 2668 016160 042767 004000 164142 BIC OBRF .C,CMDPKT 
| 2669 016166 105767 165326 TSTB © SWBFLG :IF BYTES ARE TO BE SWAPPED: 
| 2670 016172 001403 BEQ 50252 
2671 016174 052767 010000 164126 BIS @SWB.C, CMDPKT :SET SWAB BIT IN CMD PACKET. 
| 3673 016202 50252$: 
«674 016202 016767 164122 165212 MOV CMOPKT, CMDSAV ;SAVE COMMAND PACKET 1ST WORD. 
| 2675 016210 016767 165174 164114 MOV DATARD, CHDPKT°CP. ADL  ; SAVE BUFFER START ADORESS. 
2676 016216 005067 165170 CLR NCNT ;CLEAR NUMBER OF OPERATIONS. 
| 2678 016222 50253: ;WHILE NCNT LT NCNT1 00 ;WHILE THERE ARE RECORDS REMAINING: 
2679 016222 026767 165164 165164 CMP NCNT ,NCNT1 
| 2680 016230 002062 8GE 
| 2681 016232 004767 172626 JSR PC, CMDAC sSTORE CMD ASCII IN ERROR MSG. 
2682 016236 004767 000640 JSR PC ,FIRSTU :SET UP FOR FIRST UNIT 
| 2683 016242 50255:  ; WHILE GEVTBLCRS) NE @END DO ;WHILE THERE ARE DEVICES REMAINING: 
| 2684 016242 026527 002604 177777 chp DEVTBL(AS), END 
| 2685 016250 001442 BEQ 50256$ 
16252 032767 000400 165140 BIT @M00 .CO, CHDWRD sIF CMD IS REVERSE THEN: 
| 2687 016260 001421 BEQ 50257 
| 2688 016262 032765 000002 003502 BIT @X0.B0T ,EOTFLG(RS) sIF NOT AT BOT 
| 2689 016270 001014 BNE 502608 
2690 016272 032765 000001 003502 BIT @Xx0.E0T ,.EOTFLG(RS) ;8UT IF AT EOT 
2691 016300 001406 BEQ 502618 
2692 016302 105767 165216 TSTB  ALLEOT ;AND ALL OTHERS AT EOT 
2693 016306 001402 BEQ 502628 
| 2694 016310 004767 000064 JSR PC, VFISU sTHEN READ VERIFY 
| 2695 :IF NOT ALL AT EOT, FREEZE UNIT(S) 
«2696 016314 502624: 
| 2697 :IF NOT AT BOT AND 
| 2698 016324 000402 eR 502638 
2699 016316 502615: 
2700 016316 004767 000056 JSR PC, VF ISU ;NOT AT EOT, READ VFY 


2701 





GLOBAL AREAS 


MACRO M1113 


GLOBAL SUBROUTINES SECTION 


2702 016322 


2726 016374 
2727 016376 
2728 016376 


2748 016434 


2757 
2758 016464 


005267 
016767 
000712 
000207 


000001 
000001 


000030 


000574 


001116 
165024 
165026 


165004 
000010 


164774 
177777 


173424 
165066 


173722 


165054 
000002 
000002 


003502 
165056 


165030 


003502 


14-JUN-84 18:32 


502635: 
502603: 
502578: 


§0270$: 


502718: 


50273%: 


JSR PC .NEXTU 1GO FIND THE NEXT UNIT. 
BR 50255% 
"JSR PC, CKHAE :CHECK FOR HALT AFTER EACH CMD. 
INC NCNT sUPDATE THE RECORD COUNT. 
MOV CMDWRD , PCMDWD sSAVE PREVIOUS COMMAND WORD. 
BR 50253$ 
RTS PC sRETURN. 
SUBROUTINE TO ISSUE COMMAND, AWAIT INTERRUPT, 
CHECK STATUS, CHECK DATA. 
INPUTS: 
OUTPUTS: 
REGISTERS: R2 
:: MOV DATARD ,R2 sINIT READ BUFFER POINTER. 
ADD 6. R2 
: ;WHILE R2 NE DATARD DO ;UNTIL 8 BYTES HAVE BEEN SET, 
CMP R2, DATARD 
BEQ 502708 
MOV @-1,-(R2) sINIT READ BUFFER. 
BR 50267$ 
JSR PC, EXCUTE GO EXECUTE THE COMMAND. 
TSTB § DROPED LIF UNIT HAS NOT BEEN DROPPED THEN: 
BNE 502718 
JSR PC ,GOWAIT 1GO WAIT FOR DONE BIT. 


SEQ 0094 | 

BR 502648 ;ELSE IF CMD IS NOT REVERSE: 
BIT @x0.EOT EOTFLGCRS) 
BEQ 50265$ 
BIT @CMD .CO, CMOWRD 
BNE 502668 

;IF NOT AT EOT OR NOT A MOTION CMD THEN 
JSR PC, VF ISU ISSUE CMD, CHECK STATUS AND DATA. 


_— erent ;IF UNIT HAS NOT BEEN DROPPED THEN: 

BIT @x0.BOT ,EOTFLGCRS) sWHEN NOT REVERSED INTO BOT, THEN 
BNE 50273$% 

JSR PC,CKDATA 1sGO VERIFY DATA, 
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GLOBAL SUBROUTINES SECTION 

2759 

2760 016464 502728: 

2761 016464 000207 RTS PC 

5763 

2764 3 eee th TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS 

2765 : AND PRINT ERROR MESSAGE ON MISCOMPARE. 

2766 3 INPUTS: 

2767 3 OUTPUTS: 

2768 F REGISTERS: Re, R3, R4. 

2769 F CALLS: GCMDA 

2770 

2771 016466 016703 164724 CKDATA: : MOV BRFCNT RS sCOMPUTE REC LENGTH READ 

2772 016472 166703 163662 SUB MSGPKT «MS .RFC,R3 

2773 016476 005703 TST R3 ;WHEN NO DATA RECEIVED 

2774 016500 001015 BNE 50274$ 

2775 016502 ERRHRD 17,WTVERM,OTAERM sPRINT ERROR AND EXIT 
016502 104456 TRAP CSERHRD 
016504 000021 17 
016506 004430 -WORD WTVERM 
016510 005752 «WORD OTAERM 

2776 016512 PRINTB @DTAER4S sCOMPARE ROUTINE 
016512 012746 005337 MOV OOTAERS, -( SP) 
016516 012746 000001 MOV #1,-(SP) 
016522 010600 MOV SP ,RO 
016524 104414 TRAP CSPNTB 
016526 062706 000004 ADD 04,SP 

2777 016532 000560 BR 50275$ 

2778 016534 50274$: 

2779 016534 020367 164656 CMP R3,BRFCNT sWHEN REC READ IS LONGER 

2780 016540 101417 BLOS 50276$ 

2781 016542 ERRHRD 17,WTVERM,OTAERM ; THAN EXPECTED, PRINT 
016542 104456 TRAP CSERHRD 
016544 000021 -WORD 17 
016546 004430 -WORD WTVERM 
016550 005752 -WORD OTAERM 

2782 016552 PRINTB @DTAERS, CMOPKT+CP.CNT 3AN ERROR MESSAGE 
016552 016746 163560 MOV CMDPKT +CP.CNT,-(SP) 
016556 012746 005360 MOV @OTAERS, -(SP) 
016562 012746 000002 MOV @2,-CSP) 
016566 01 MOV SP RO 
016570 104414 TRAP CSPNTB 
016572 062706 000006 ADD 96,SP 

2783 sAND EXIT ROUTINE 

2784 916576 000536 BR 50277$% 

2785 016600 50276$: 

2786 016600 010367 000272 MOV R3,CKOCNT sSAVE VERIFICATION LENGTH - 1. 

2787 016604 005367 000266 DEC CKOCNT 

2788 016610 905067 000264 CLR CKOFF sCLEAR @ OF BYTES IN ERROR COUNTER. 

2789 016614 005002 CLR R2 sINIT BYTE COUNTER 

2790 016616 016703 164564 MOV DATAWT ,R3 ;GET WRITE BUFFER ADDRESS. 

2791 016622 016704 164562 MOV DATARD ,R4 ;GET READ BUFFER ADORESS. 

2792 016626 105767 164671 TSTB T1SWB sWHEN RUNNING TEST1-SUB8 12, 

2793 016632 001401 BEQ 50300$% 

2794 016634 000313 SWAB (R3) sSWAP FIRST WORD OF WRT BFR 

2795 3 WHICH CONTAINS THE RECORD COUNT 

2796 016636 50300$: 





017044 016746 000026 MOV CKDCNT , -( SP) 


} 
| 
| 

GLOBAL AREAS MACRO M1113 14-JUN-84 18:32 SEQ 0096 
GLOBAL SUBROUTINES SECTION 
2797 sREPEAT REPEAT UNTIL ALL DATA IS COMPARED: 
2798 016636 503015: 
2799 016636 020267 000234 CMP = R2, CKDCNT ;IF THIS IS THE LAST BYTE THEN: 
2800 016642 001011 BNE 503028 
2801 016644 105767 164650 TSTB © SWBFLG ;1F BYTE SWAPPING IS ENABLED THEN: 
2802 016650 001406 BEQ 503038 
2803 016652 032767 000001 000216 BIT @B1T00, CKDCNT sIF RECORD LENGTH IS ODD THEN: 
| 2804 016660 001002 BNE 50304$ 
| 2805 016662 105723 TSTB © (R3)» sLAST BYTE WILL BE IN 
| 2806 016664 105724 TSTB = (R4)+ ;THE UPPER BYTE. 
280 
2808 016666 503045: 
2809 
2810 016666 503038: 
2811 
2812 016666 503028: 
2813 016666 121314 CMPB (R3),(R4) ;ARE THEY EQUAL. 
2814 016670 001452 BEQ 38 :8R IF SO. 
2815 016672 005767 000202 TST CKOFF 31 ST TIME THRU? 
2816 016676 001010 BNE 2 :8R IF NOT. 
2817 016700 005265 003346 INC  VFYCNT(RS) sINC THE VERIFY ERROR COUNTER. 
2818 016704 005265 003356 INC _ HROCNT(RS) sINC THE HARD ERROR COUNT. 
2819 016710 ERRHRD 17,WTVERM,DTAERM SREPORT WRITE/VERIFY ERROR. 
016710 104456 CSERHRD 
016712 000021 Tyoro 7 
016714 004430 “WORD WTVERH 
016716 005752 “WORD  DTAE 
2820 016720 005267 000154 2s: INC CKDFF:LET CKDFF := CKDFF + @1  ;INCREMENT @ OF BYTES IN ERROR. 
2821 016724 111467 164506 MOVB (R4), TIME1 ;SAVE WAS DATA FOR TYPOUT. 
2822 016730 042767 177400 164500 BIC 0177400, TIME1 ;CLEAR GARBAGE. 
2823 016736 111367 164476 MOVB (R3), TIME2 SAVE SHOULD BE DATA FOR TYPOUT. 
2824 016742 042767 177400 164470 BIC 0177400, TIME2 CLEAR GARBAGE . 
2825 016750 026727 000124 000013 CMP ss CKOFF,,@11. :IF ERROR BYTE COUNT IS LESS THAN 11: 
2826 016756 002017 BGE  50305$ 
2827 016760 PRINTX @OTAER2,R2,<B,TIME1>,<B,TIME2>;PRINT ACTUAL & EXPECTED DATA 
016760 005046 CLR -(SP) 
016762 156716 164452 BISB =: TIME2, (SP) 
016766 005046 CLR -(SP) 
016770 156716 164442 BISB TIME1,(SP) 
016774 010246 MOV —s- R2, -( SP) 
016776 012746 005226 MOV @OTAER2, -(SP) 
017002 012746 000004 MOV 04, -(SP) 
017006 010600 MOV SP.RO 
017010 104415 TRAP —- C$PNTX 
017012 062706 000012 ADD 12,SP 
2628 017016 50305: 
2830 017016 105723 3$: TSTB = (R3)» sUPDATE WRITE BUFFER ADDRESS. 
2831 017020 105724 TSTB «= (R4)» ;UPDATE READ BUFFER ADORESS. 
2832 017022 105722 TSTB = (R2)+ ;UPDATE BYTE COUNTER. 
2833 017024 020267 000046 CMP =—s-R2, CKDCNT END OF DATA COMPARE REPEAT LOOP. 
2834 017030 003702 BLE 503018 
2835 017032 005267 000040 INC  CKDCNT sCKDCNT EQUALS RECORD LENGTH. 
2836 017036 005767 000036 TST CKDFF sIF COMPARE ERROR HAS OCCURED THEN: 
| 2837 017042 001414 BEQ 50306$ 
| 2838 017044 PRINTB @DTAER3,CKDFF ,CKDCNT :PRINT @ OF BYTES IN ERROR. 
| 





2888 ; SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 


] 
GLOBAL AREAS MACRO M1113 14-JUN-84 18:32 SEQ 0097 | 
GLOBAL SUBROUTINES SECTION 
017050 016746 000024 MOV CKDFF ,-CSP) 
017054 012746 005275 MOV OOTAERS, -(SP) 
017060 012746 000003 MOV 03,-(SP) | 
017064 010600 MOV SP ,RO 
017066 104414 TRAP CSPNTB 
. 017070 062706 000010 ADD #10,SP 
2839 
2840 017074 50306$: 
2841 
| 2842 017074 502778: 
2843 
2844 017074 50275$: 
2845 017074 000207 RTS PC sOTHERWISE, RETURN. 
2846 
2847 017076 000000 CKDCNT: .WORD 0O 3@ OF BYTES TO BE VERIFIED -1. 
| — 017100 000000 CKOFF: .WORD O 3@ OF BYTES IN ERROR COUNTER. 
2850 3 SUBROUTINE TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 
2851 3 INPUTS: 
2852 3 OUTPUTS: 
2853 ; REGISTERS: 
ss PF CALLS: 
2856 017102 105067 164414 FIRSTU:: CLRB DROPED ;CLR UNIT DROPPED FLAG 
2857 017106 005005 CLR RS sCLR DEVICE POINTER. 
2858 017110 026527 002604 177774 5S0307$%: CMP DEVTBLCRS ), ONINUSE ;WHILE DEVICES ARE NOT IN USE: 
28659 017116 001003 BNE 50310$ 
2860 017120 062705 000002 ADO 62,R5 sLET RS := RS + 02 sPOINT TO NEXT DEVICE. 
2861 017124 000771 BR 50307$% 
2862 017126 50310$: 
2863 017126 026527 0026C4 177777 CMP DEVTBLCRS), @END ;IF ALL UNITS HAVE BEEN DROPPED THEN: 
2864 017134 001001 BNE 50311$ 
2865 017136 DOCLN 300 CLEAN CODE AND TERMINATE PASS. 
017136 104444 TRAP CSOCLN 
2866 
2867 017140 50311: 
2868 017140 016567 002604 162726 MOV DEVTBL(RS),L$LUN ;SET UNIT @ IN “HEADER” FOR ERROR REPORT 
oer 017146 000207 RTS PC ;RETURN WITH 1ST DEVICE IN RS. 
2871 
2872 F SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 
2873 F INPUTS: 
2874 F OUTPUTS: 
2875 : REGISTERS: 
oe ae 
2878 017150 105067 164346 NEXTU:: CLRB DROPED sCLR UNIT DROPPED FLAG 
2879 sREPEAT sREPEAT UNTIL THE NEXT DEVICE IS FOUND. 
2880 017154 50312$: 
2881 017154 062705 000002 ADD 62,R5 sUPDATE DEVICE TABLE POINTER. 
28862 017160 026527 002604 177774 CMP DEVTBLCRS), @NINUSE sUNTIL DEVTBLCRS) NE @NINUSE 
2883 017166 001772 BEQ 50312% 
2884 017170 016567 002604 162676 MOV DEVTBLCRS),L$LUN 3SET UNIT @ IN “HEADER” FOR ERROR REPORT 
2885 017176 000207 RTS PC sRET . 
2886 
| 2887 
| 
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2939 017366 001005 BNE 50322$ 


GLOBAL AREAS MACRO M1113 14-JUN-84 18:32 SEQ 0098 
GLOBAL SUBROUTINES SECTION 
2889 3 INPUTS: 
2890 : OUTPUTS: 
2891 : REGISTERS: 
2892 3 CALLS: MOVMSG, PRXST, LOG 
2893 
2894 017200 005265 003366 DROPU:: INC FTLCNTCRS) s INCREMENT THE FATAL ERROR COUNT. 
2895 017204 016704 163160 MOV = tg aaa ant sGET UDIAG ERROR CODE FROM XSTATS. 
2896 017210 042704 000377 BIC 4377,R 
| 2897 017214 016503 002544 ah MSGPKACRS ), “y ay * OF THIS UNIT'S MSG PACKET. 
| 2898 017220 005002 CLR Re sLET Re : sCLR COUNTER. 
2899 017222 50313%: ;WHILE R2 NE escent 00 ;sWHILE THERE ARE MORE LOCATIONS: 
2900 017222 020227 000020 CMP Re, @MSGCNT 
2901 017226 001405 BEQ 503148 
2902 017230 012723 177777 MOV 9-1,(R3)+ sINIT THE MSG PACKET WITH ALL 1'S 
2903 017234 062702 000002 ADD $2,R2 sLET R2 := R2 + 62 sUPDATE COUNTER. 
2905 017240 000770 50313% 
2906 017242 50314$: 
2907 017242 012775 002340 002514 MOV @GSCPK , 8TSDBC( RS) sINITIATE A GET STATUS COMMAND. 
2908 017250 004767 173424 JSR PC,WSSR sWAIT A WHILE FOR SSR=1 
2909 017254 004767 173454 JSR PC ,.MOVMSG sMOVE MSG PACKET TO COMMON ARE 
2910 017260 020427 157400 CMP R4, @X3.RNY tIF WE HAVE A CAPSTAN RUNAWAY THEN: 
2911 017264 001005 BNE 50315$ 
2912 017266 ERROF 16,RNYM, STAERM sREPORT CAPSTAN RUNAWAY be TACH CNT. 
017266 104455 TRAP CSEROF 
017270 000020 . WORD 16 
017272 004753 -WORD RNYM 
017274 006120 -WORD STAERM 
2913 ;ELSE-IF NOT A RUNNAWAY: 
2914 017276 000402 BR 50316$% 
2915 017300 50315: 
coos 017300 004767 000106 JSR PC ,PRXST sPRINT EXTENDED STATUS REGISTERS. 
2918 017304 50316: 
2919 017304 105767 164155 TSTB RECLOG :IF THE RECORD HAS BEEN LOGGED THEN: 
2920 017310 001404 BEQ 50317$% 
2921 017312 105267 164204 INCB DROPED ;SET UNIT DROPPED FLAG. 
co 017316 004767 176244 JSR PC,LOG ;LOG DATA BYTES + RD/WR ERRORS. 
2924 017322 50317$: 
2925 017322 DORPT sPRINT PERFORMANCE REPORT 
017322 104424 TRAP CSDRPT 
2926 017324 005765 003326 DROPUA: TST PASCNTC(RS) :IF PASCNTCRS) NE #0 THEN 
2927 017330 001402 BEQ 50 $ 
co 017332 005365 003326 DEC PASCNTCRS) 3LET PASCNTCRS) := PASCNTC(RS) - @1 
2930 017336 50320$: 
2931 017336 016767 164172 000044 MOV TSNP , DROPN 3SAVEe @ OF UNIT TO BE DROPPED. 
2932 017344 016700 164164 MOV TSNP ,RO sRO=LOGICAL DEVICE NUMBER 
2933 017350 DODU RO sOROP THE UNIT 
017350 104451 TRAP C$D00U 
oo sEXEC BGNDU-ENDDY CODE IF IDU = 0 
| 2936 017352 026527 002604 177774 CMP DEVTBLCRS), ONINUSE 3IF UNIT NOT DROPPED 
2937 017360 001410 BEQ 50321$% 
2938 017362 105767 162625 TSTB IREC sIF RECOVERY IS ENABLED THEN: 





GLOBAL SUBROUTINES SECTION 


———————ee | 


2979 017540 111367 164544 MOYB (R3),HALTM+2 sINTO MESSAGE. 


2940 917370 000240 NOP 
5941 017372 000240 NOP 
2942 017374 000240 NOP 
2943 017376 105267 164124 INCB  STAFLG ;SET START FLAG TO ENABLE REWIND, 
2944 
2945 017402 50322$: 
2946 
2947 017402 503215: 
| 2948 017402 105267 164114 DRORTN: INCB DROPED :SET UNIT DROPPED FLAG. 
| 2949 017406 000207 ATS PC ; RETURN, 
2950 
| $951 017410 000000 DROPN: .WORD 0 ;® OF UNIT TO BE DROPPED 
2953 ; SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 
2954 ; INPUTS: 
2955 : OUTPUTS: 
2956 ; REGISTERS: 
2957 : CALLS: 
2958 
2959 017412 PRXST:: PRINTX @GETSTM 
617412 012746 005507 MOV @GETSTM, -(SP) 
017416 012746 000001 MOV #1, -(SP) 
017422 010600 MOV SP RO 
017424 104415 TRAP = CSPNTX 
017426 062706 000004 ADD 64,SP 
4 2960 017432 PRINTX @STAERS,MSGPKT+MS.xXSO,MSGPKT+MS.XS1,MSGPKT +MS. XS2,MSGPKT oMS.XS3,MSGPKT +MS. XS 
017432 016746 162734 MOV MSGPKT MS .xS4, -(SP> 
017436 016746 162726 MOV MSGPKT oMS .XS3,-(SP) 
017442 016746 162720 MOV MSGPKT +MS .XS2. -(SP) 
017446 016746 162712 MOV MSGPKT »MS .XS1. -(SP) 
017452 016746 162704 MOV MSGPKT +MS .XSO, -(SP) 
017456 012746 006753 MOV @STAERS, -(SP) 
017462 012746 MOV 06, -(SP) 
017466 01 MOV *RO 
017470 104415 TRAP  C$PNTX 
017472 062706 000016 ADD €16,SP 
2961 017476 000207 RTS PC 
2963 ; SUBROUTINE TO HALT AFTER EACH COMMAND. 
2964 ; INPUTS: 
2965 ; OUTPUTS: 
2966 , REGISTERS: R3, R4 
dat ; CALLS: 
2969 017500 105767 162502 CKHAE:: TSTB HAE; IFB HAE NE @O THEN :IF HALT FLAG IS SET: 
2970 017504 001430 BEQ 50323$ 
2971 017506 105767 164017 TSTB MISCFG ;IFB MISCFG EQ 00 THEN : 
2972 017512 001023 BNE 50324$ 
2973 017514 MANUAL ;IS MANUAL INTERVENTION ALLOWED? 
017514 104450 TRAP C$MANI 
2974 017516 BNCOMPLETE CKHRTN ;BR IF NOT. 
017516 103023 Bcc CKHRTN 
2975 017520 016704 163674 MOV CMOWRD , R4 ;LET R4 := CMOWRD WORD . 
2976 017524 004767 171496 JSR PC,GCMDA ;FETCH ADR OF CMD ASCII. 
| 2977 017530 112367 164552 (R3)+,HALTM ;MOVE CMD ASCII 
| 2978 017534 112367 164547 MOVB  (R3)+.HALTMel }LET HALTM+1 :B= (R3)+ 








J&B 


GLOBAL AREAS MACRO M1113 14-JUN-84 18:32 SEQ 0100 
| GLOBAL SUBROUTINES SECTION 
2980 017544 GMANIL HALTM,TIME1,1,YES | ;HALT - WAIT FOR AN OEPRATOR INPUT. 
017544 104443 C$GMAN 
| 017546 000404 Br 10000$ 
017550 003436 WORD TIME1 
017552 000130 WORD T$CODE 
017554 004306 WORD HALTM 
017556 000001 WORD 1 
017560 100008 : 
| 2981 017560 10000$ : 
| 2982 
| 2983 017560 000402 BR 50325$ 
2984 017562 50324$: 
2985 017562 105067 163743 CLRB = MISCFG ;LET MISCFG :B= 00 : 
2987 017566 50325$: 
2988 
2989 017566 503238: 
2990 017566 000207 CKHRTN: RTS PC ;RE TURN 
2991 EVEN 
2992 
2993 017570 ENDMOD 
2994 
2995 
2996 .TITLE MISCELLANEOUS SECTIONS 
2997 .SBTTL REPORT CODING SECTION 
2998 
2999 
3000 3+ 
3001 | THE REPORT CODING SECTION CONTAINS THE 
3002 ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
cine 
3004 
3005 017570 BGNRPT 
017570 LSRPT:: 
3006 017570 010567 163656 MOV RS, RSSAVE ;SAVE CURRENT DEVICE POINTER. 
3007 017574 004767 177302 JSR PC ,FIRSTU ;FIND THE FIRST UNIT 
3008 017600 50326$: ;WHILE DEVTBL(RS) NE SEND D0 ;WHILE THERE ARE MORE DEVICES: 
3009 017600 026527 002604 177777 CMP DEVTBL(RS), END 
3010 017606 001562 BEQ 503278 
3011 017610 PRINTS @RPT1A,DEVTBLC(RS),PASCNT(RS),RECCNT(RS) 
017610 016546 003376 RECCNT(RS).-(SP) 
017614 016546 003326 MOV PASCNT(RS), -(SP) 
017620 016546 002604 MOV DEVTBL(RS),-(SP) 
017624 012746 020432 MOV ORPTIA, -(SP) 
017630 012746 000004 MOV 04,-(SP) 
017634 010600 MOV RO 
017636 104416 TRAP = C$PNTS 
017640 062706 000012 ADD #12,SP 
3012 017644 PRINTS @RPT1B. WRBC+30( RS). WRBC+20( RS>,WRBC+1L0CRS).WRBCCRS) 


017676 
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062706 
3013 


3015 


3016 


020070 062706 
3017 020074 
3018 020100 
3019 020102 
3020 


142 
3023 020146 
3024 
3025 020152 


MACRO M1113 


000014 
176776 


K8 
14-JUN-84 18:32 SEQ 0101 
ADD 014,SP 
PRINTS @RPTIC ,RRBC+30(RS),RRBC+20(R5),RRBC+10( RS) ,RRBCCRS) 
MOV CRS), -CSP) 
MOV RRBC+10( RS), -( SP) 
MOV RRBC +20( RS), -C SP) 
MOV RRBC+30( RS), -( SP) 
MOV ORPTIC, -( SP) 
MOV @5,-(SP) 
MOV SP ,RO 
TRAP CSPNTS 
ADD 014,SP 
PRINTS ORPT1D ,RFBC+30(RS),RFBC+20(RS), RFBC+10(RS), RFBCCRS) 
MOV RFBCCRS),-CSP) 
MOV RFBC+10(RS), -(SP) 
MOV RF BC +20( RS), -C SP) 
MOV RFBC+30( RS), -C SP) 
MOV @RPT1D, -C SP) 
MOV »-(SP) 
MOV SP ,RO 
TRAP CSPNTS 
#14,SP 
PRINTS ORPTIF ,WRRECCRS),RRRECCRS),RFRECCRS) 
MOV RFRECCRS),-CSP) 
MOV RRRECCRS), -( SP) 
MOV WRREC( .-(SP) 
MOV ORPTIF ,-CSP) 
MOV @4,-(SP) 
MOV SP ,,RO 
TRAP CSPNTS 
#12,SP 
PRINTS ORPT1G,WRUNRCRS ),RRUNRCRS),RFUNRCRS ) 
MOV RFUNRCRS), -CSP) 
MOV RRUNRCRS), -CSP) 
MOV WRUPIRCRS), -CSP) 
MOV @RPTIG, -CSP) 
MOV 04,-(SP) 
MOV SP RO 
TRAP C$PNTS 
ADD #12,SP 
TST8B BADTSW ;IFB BADTSW NE #0 THEN F 
BEQ 50330$ 
JSR PC,BTRPT ;GO PRINT BAD TAPE SPOTS WHEN ENABLED 
50330$: 
PRINTS @RPT11,SCCNTCRS),HROCNTCRS),FTLCNTCRS), VF YCNTCRS) 
MOV VF YCNTCRS),-(CSP) 
MOV FTLCNTCRS),-CSP) 
MOV TCRS), -CSP) 
MOV SCCNTCRS), -CSP) 
MOV @RPTII, -CSP) 
MOV @5,-(SP) 
MOV PRO 
TRAP CSPNTS 
#14,SP 
JSR PC,NEXTU sFIND THE NEXT UNIT. 
BR 50326$ 
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016705 


000167 
001130 
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163272 


003316 
021057 
000002 


000006 
002616 
163270 


021107 
000002 


000012 


163274 


50327$: 


BIRPT:: 


50332$: 


50333$%: 


SEQ 0102 
MOV RSSAVE ,RS sRESTORE CURRENT DEVICE POINTER. 
EXIT RPT 
-WORD = J$JMP 
-WORD L10010-2-. 
SUBR TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS 
WRITE RETRIES: CUMULATIVE COUNT 
BAD TAPE SPOTS: COUNT PER TAPE PASS ONLY, NOT CUMULATIVE. 
COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 
PRINTS @RPTIE,WRTYCTCRS) sPRINT GLOBAL WRITE RETRY COUNT 
MOV WRTYCTCRS),-CSP) 
MOV ORPTIE, -(SP) 


MOV #2,-CSP) 
SP RO 
oo 


ADD #6 ,SP 
:OTPT IS BOTH THE anne TAPE SPOT COUNTER 


MOV BTADOR(RS),BTPT 
R3 sAND THE LOGGING I 


MOV aBTPT, 


ASR R3 
PRINTS @RPT1U,R3 s;PRINT @ OF BAD TAPE SPOTS 
MOV R3,-CSP) 
MOV ORPT1J,-CSP) 
MOV #2,-CSP) 
"] SP ,RO 
TRAP CSPNTS 
ADD #6, SP 
TST R3 ;PRINT RECORD @ IF BAD SPOTS DETECTED 
BEQ 50331$ 
CMP R3,020. ;IF R3 HI #20. THEN F 
BLOS 50332$ 
MOV #20. ,R3 320 BAD SPOTS IS THE LIMIT 
PRINTS @CRLFSP ; 
MOV @CRLFSP, -CSP) 
MOV #1,-CSP) 
MOV SP RO 
TRAP CSPNTS 
ADO .SP 
MOV BIPT,R4 ;LET R4 := BIPT + #2 ;FETCH A BAD SPOT ID 
ADD 02 ,R4 
CLR R2 sR2 = PRINT COUNT PER LINE: 10 MAX 
;REPEAT H 
PRINTS ORPTIK,CR4) sPRINI A BAD SPOT ID 
(R4),-CSP) 
MOV ORPTIK,-CSP) 
MOV @2,-(SP) 
MOV SP RO 
TRAP CSPNTS 
06,SP 
INC R2 sLET R2 := R2 + 01 ;COUNT PRINTS 
ADD $2,R4 sLET R4 := R4 + 2 ;NEXT 
CMP R2,@10. sIF R2 EQ 010. THEN ; 
BNE 50334$ 
PRINTS @CRLFSP +GO TO NEXT PRINT LINE PAST 10 PRINTS 





"esgic arene reas aa one 


MISCELLANEOUS SECTIONS 
REPORT CODING SECTION 


3058 020374 162703 
3059 162702 
3060 

3061 020404 

3062 020404 3 
3063 001343 
3065 020410 

3066 020410 


021314 104425 


000000 
3097 021320 177777 
021322 177777 
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MACRO M1113 14-JUN-84 18:32 SEQ 0103 | 
005744 MOV ert -(SP) 
000001 MOV + - (SP) 
MOV Sp. RO 
TRAP CSPNTS 
000004 ADD 04 ,SP 
000012 SuB #10. .R3 ;LET R3 == RB - O10. sADJUST BAD SPOT COUNT 
000012 SUB #10. ,R2 ;LET R2 :* R2 - #10. sADJUST PRINT COUNT 
$ 
50334$: 
CMP R2,R3 sUNTIL R2 EQ RB sLIMIT: @ OF BAD SPOTS 
BNE 50333$% 
3 
50331$: 
PRINTS @CRLF ’ 
005741 MOV @CRLF , -( SP) 
000001 MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTS 
000004 ADD 04 ,SP 
RTS PC 
-NLIST BEX 
116 045 RPTIA: .ASCIZ /SNENSAUNIT SD1SS3SAPASS : SDSSS3SARECORD : 4058N/ 
101 102 RPT1B: .ASCIZ /SABYTES WRITTEN S038A,8Z38A,5Z350A,5Z30N/ 
101 102 RPTIC: .ASCIZ /SABYTES READ REV S038A,8Z38A,5Z30A,8Z30N/ 
101 102 RPT1D: .ASCII /SABYTES READ FWD SD38A,85Z7358A,5Z38A,8Z350N/ 
123 062 -ASCIZ /8S23SAURTSS4SSARDRES4SARDF SN/ 
101 122 RPTIF: .ASCIZ /SARECOVERABLE ERRORS s05sS2805sS2s05eN/ 
101 125 RPT1G: .ASCIZ /SAUNRECOVERABLE ERRORS #058S2s805sS2s05sN/ 
101 127 RPTIE: .ASCIZ /SAWRITE RETRIESSSSS050N/ 
116 045 RPT1IJ: .ASCIZ een BAD SPOTS THIS TAPE PASS PRECEDING RECORD @:/ 
104 065 RPTIK: .ASCIZ /#D5sS1/ 
101 123 RPTII: .ASCII “sASPEC CONDSS3SAHARDSS3SAF ATALSS3SACOMPARESN” 
123 063 SssNSN/ 


-ASCIZ ~ sapeceaommeansemtncnonetie 


L10010: 
TRAP C$RPT 


-SBTTL LOAD DEVICE PROTECTION TABLE 
STABLE FOR SUPERVISOR TO IDENTIFY THE P-TBL FOR THE LOAD DEV 
;THE SUPERVISOR USES THE TBL TO WARN THE OPERATOR WHEN HE TRIES TO TEST THE LOAD DEV 
; -- 
T 


LSPROT:: 
-WORD O ;P-TBL OFFSET OF TSDB 
-WORD -1 ;P-TBL OFFSET OF MASS BUS UNIT @: -1 = NOT A MASS BUS DE 
-WORD -1 ;P-TBL OFFSET OF DRTVE @: -1 = NONE, THREE DRIVES PER CONTRO 
ENDPROT 


-SBTTL INITIALIZE SECTION 





3113 021344 
021344 


02137, 
3114 021374 
3115 
3116 021376 
3117 
3118 0213576 


3130 

3131 021432 

3132 

3133 021432 

3134 021436 

3135 021440 

3136 

3137 021446 

3138 

3139 021454 

3140 021454 
021454 
021460 

3141 021462 
021462 

3142 021464 
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105767 
001406 
012767 


012767 


012700 
104447 


103057 
105267 


MACRO 1115 


000003 002330 


000310 
160540 
177772 
177756 


160602 
160574 


000550 


002626 
000002 


160547 
153624 
032561 


161764 
161760 


14-JUN-84 18:32 


see 

; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 

gce 


BGNINIT 
LSINIT:: 
INIT10: oo +S + peal tate ;IF CMD PACKET IS NOT ON MODULO 4 BOUNODRY: 
ERRSF 1, ;PRINT ERROR MSG, 
TRAP CSERSF 
-WORD 1 
-WORD CMDPKM 
-WORD O 
DELAY 200. ;GO TO SUPERVISOR, WAIT 2 SECONDS. 
MOV 0200. ,(PC)-+ 
-WORD O 
MOV LSOLY,(PC)>+ 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE -20 
BR INIT10 $ 
50335$: 
TSTB CLRFLG ;IF CLR COUNTERS FLAG SET: 
BEG 50336$ 
CLRB CLRFLG :INIT CLR FLAG. 
CLR R2 ;LET R2 := 00 
50337$: ;WHILE R2 NE @CNTLEN DO 
CMP .» @CNTLEN 
BEQ 50340$ 
CLR WRBC(R2) ;CLR ALL STATISTICAL COUNTERS. 
ADO 92,R2 ;LET R2 := R2 + #2 
BR 50337$ 
503405: 
50336$% 
TSTB RRANV ;IF RESET RANDOM VARIABLE FLAG IS SET THEN: 
BEQ 50341$ 
MOV @RANBC , RANB ;RESET RANDOM BASE ¢. 
MOV @RANSC ,RANS ;RESET RANDOM SAVE LOCATION. 
50341$: 
READEF #€F .START ;READ START COMMAND EVENT FLAG. 
MOV MEF .START,RO 
TRAP CSREFG 
BNCOMPLETE INITi5 ;BRANCH IF NOT STARTING. nates 


INCB STAFLG ;SET START COMMAND FLAG. 


BY 
MISCELLANEOUS SECTIONS MACRO M1113  14-JUN-84 16:32 SEQ 0105 | 
INITIALIZE SECTION ! 


3143 021470 012705 000006 MOV @6.R5 LET RS :* 06 
3144 021474 503428: ;REPEAT sINITIATE UNIT NUMBER TABLE | 
3145 021474 012765 177774 002604 MOV ONINUSE , DEVTBL (RS ) 1BY STORING NOT IN USE IN EACH LOCATION. 
3146 021502 162705 000002 SUB @2,R5 1LET RS :* RS - 02 | 
3147 021506 005705 TST RS sUNTIL RS EQ 00 
3148 021510 001371 BNE 503428 
3149 021512 022767 000001 160272 CMP 01,LSUNTT sONLY ONE UNIT ALLOWED 
3150 021520 001425 BEQ 50348 + 0K 
3151 021522 PRINTF @AUDRUN :TELL THE MAN 
021522 012746 005146 MOV @AUDRUN, - (SP ) 
021526 012746 000001 MOV #1, -(SP) 
021532 010600 MOV SP RO 
021534 104417 TRAP = CSPNTF 
021536 062706 000004 ADD 04,SP 
3152 021542 DELAY 25 ;WAIT 
; 021542 012727 000025 MOV 025,(PC)- 
021546 000000 .WORD 0 
021550 016727 160342 MOV LSOLY,(PC)- 
021554 000000 .WORD 0 
021556 005367 177772 DEC -6(PC) 
021562 001375 BNE et 
021564 005367 177756 DEC -22(PC) 
021570 001367 BNE .-20 
3153 021572 DOCLN sABORT 
021572 100444 TRAP CSOCLN 
3154 021574 016705 160212 50348: MOV LSUNIT.RS sLET RS :* LSUNIT SHIFT 1 
3155 021600 006305 ASL RS 
3156 021602 50343$: ;REPEAT sSTORE ALL UNIT 
3157 021602 162705 000002 5u8 62.R5 sLET RS :* RS - 02 ;NUMBERS IN DEVTBL. 
3158 021606 010565 002604 MOV RS ,DEVTBL(RS) sLET DEVTBL(RS) :* RS SHIFT -1 
3159 021612 006265 002604 ASR DEVTBL(RS) 
3160 021616 005705 TST RS ;UNTIL RS EQ 00 
3161 021620 001370 BNE 503438 
3163 021622 INIT1S: READEF @€F .PWR ;HAS THERE BE A POWER FAILURE? 
021622 012700 000034 MOV @€F .PUR,RO 
021626 104447 TRAP = CSREFG 
3164 021630 BNCOMPLETE INIT16 ;BRANCH IF NOT. 
021630 103004 acc INIT16 
3165 021632 105267 161670 INCB = STAFLG sIF SO - SET THE START FLAG. 
3166 021636 105267 161665 INCB PWRFLG sIF SO - SET THE POWER FAIL FLAG. 
3168 021642 INIT16: RFLAGS OPFLAG ;READ AND STORE FLAGS SET BY OPERATOR 
021642 104421 TRAP =—s- CSRFLA 
021644 010067 161666 MOV RO, OPFLAG 
3169 021650 005003 CLR R3 ;LET RB :* 00 ;CLEAR EVENT FLAG 
3170 021652 105767 161651 TSTB PWRFLG ;IF POWER FAIL HAS NOT OCCURRED THEN: 
3171 021656 001020 BNE 503448 
3172 021660 READEF @€F .NEW ;UPDATE PASS COUNT WHEN 
021660 012700 000035 MOV O€F .NEW,RO 
021664 104447 TRAP C$REFG 
3173 021666 103014 Bcc 503458 ;SUPERVISOR IS IN NEW PASS 
3174 021670 105767 161632 TSTB8 ©STAFLG sAND OIAG WAS NEITHER STARTED 
3175 021674 001010 BNE 503468 
3176 021676 READEF @€F .RES sNOR 
021676 012700 000037 MOV @€F .RES,RO 


021702 104447 TRAP CSREFG 





MISCELLANEOUS SECTIONS MACRO M1113 14-JUN 84 18:32 SEQ 0106, 
INITIALIZE SECTION 
3177 021704 103402 BCS 50347$ sIFCOND CC THEN sRESTARTED 
3178 021706 005103 COM sLET RS := COMP RS ;00 IT 
3179 
3180 021710 000401 BR 50350$ 
31861 021712 503478; 
3182 021712 005203 INC R3 sSET 1ST PASS IF NEW PASS AND 
318 sRESTARTING 
3184 021714 503505: 
318 
3186 021714 000401 BR 503518 
31867 021716 50346: 
31868 021716 005203 INC R3 sSET 1ST PASS IF NEW PASS AND 
318 STARTING 
3190 021720 503518: 
319 3:00 NOT UPDATE IT ON CONTINUE 
3192 021720 50345: 
3193 sOR ON POWER FAIL 
3194 0217 503443: 
3195 021720 004767 175156 JSR PC .FIRSTU sINIT DEVICE POINTER. 
3196 021724 CLR ET R2 :* 00 sINIT DEVICE COUNTER. 
3197 021726 50352%: ;WHILE DEVTBL(RS) NE @END DO 
3196 021726 026527 002604 177777 CMP VTBLCRS ), @END 
3199 021734 001456 BEQ 50353% 
3200 021736 INC sLET R2 := R2 + O1 
3201 021740 010500 MOV RS,RO sLET RO :* RS SHIFT -1 
3202 021742 ASR 
3203 021744 GPHARD RO,RO sGET HARDWARE P TABLE FROM SUPER. 
021744 104442 TRAP C$GPHROD 
3204 021746 103044 BCC 50354% sIFCOND CS THEN 
3205 021750 011065 002514 MOV CRO), TSOBCRS) sSAVE TS0B8 ADDRESS. 
3206 021754 017065 MOV io folatins sSAVE TSSR ADDRESS. 
3207 021760 062765 002524 ADO 2, TSSRCRS 
3208 021766 0 Ss MOV (RO)*, TSVCTCRS) 3 SAVE yt VECTOR ADDRESS. 
3209 021772 011065 0035 MOV CRO), TSUNT CRS) s SAVE R OF ORIVE 
3210 021776 011067 161532 MOV CRO), TSNP sSAVE FOR PRINT OUT’S 
11 022002 SETVEC TSVCT(RS), TSSINTC(RS), @INTPRI 
022002 012746 000340 MOV @INTPRI, -( SP) 
022006 016546 002554 MOV TSSINT(RS), -CSP) 
022012 016546 002534 MOV TSVCTCRS), -CSP) 
022016 012746 000003 MOV @3,-(SP) 
104437 TRAP C$SvEC 
022024 062706 000010 ADO #10,SP 
sSET UP_INTERUPT yaaa CONDITIONS . 
3213 022030 003472 CLR INTFLGCRS ) sCLEAR INTERRUPT FLAGS. 
3214 022034 005703 TST R3 sACTUAL PASSCOUNT UPDATE PER R3 
3215 022036 001410 BEQ 50355% 
022040 005703 TST R3 IF R3 LT @O THEN 
3217 022042 002003 BGE 50356% 
a. 022044 005265 003326 INC PASCNTCRS ) sLET PASCNT(RS) := PASCNT(RS) + 01 
022050 000403 BR 50357% 
3221 022052 50356$ : 
4 022052 012765 000001 003326 MOV #1,PASCNTC(RS) sLET PASCNTC(RS) := 01 
3224 022060 50357$ 
3226 022060 50355% 


| 
| 
| 
| 
| 
| 


3238 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


012767 
000404 
000167 


MACRO M1113 


005114 
00000 


000310 
157766 
177772 
177756 


160027 


174700 
002604 
161312 
000340 
023730 
000004 
000003 
000010 
000001 
000622 


161342 


177777 


161164 


503608: 


50362$: 


1%: 


14-JUN-84 18:32 


RECCNTC(RS ) 
JSR -PC,NEXTU 
50352$ 
TsT R2 
BNE 50360% 
PRINTF @AUDRPM 
DELAY 200. 
BREAK 
DOCLN 
SETPRI @PRIOO 
TSTB IREC 
BNE 1$ 
BIT @ADR , OPFLAG 
BNE $ 
JSR PC ,FIRSTU 
CMP DEVTBL(RS >, @END 
BEQ 1% 
CLRB TRAPD4 
SETVEC 04, @TRAP4, OINTPRI 
MOV #1, TIME1 
BR 50365% 
JMP 503638 





SEQ 0107 
sCLEAR RECORD COUNT 
s00 IT FOR ALL DEVICES. 
sIF THERE ARE NO UNITS: 
sPRINT ALL JNITS DROPPED, 
MOV @AUORPM , -( SP ) 
MOV @1,-(SP) 
MOV -RO 
TRAP CSPNTF 
ADO ° 
sGO TO SUPERVISOR, WAIT 2 SECONDS. 
MOV #200. ,(PC)+ 
-WORD O 
MOV LSOLY,(PC)+ 
-WORD 0 
DEC -6(PC) 
BNE --4 
DEC -22(PC) 
BNE --20 
GO TO SUPERVISOR, CHECK TTY. 
RAP CSBRK 
300 CLEAN CODE + ABORT PASS. 
TRAP CS$DCLN 
sLOWER CPU PRIORITY TO O 
@PRIOO,.RO 
C$SPRI 


TRAP 
sIF ERROR RECOVERY IS ENABLED 


sAND AUTO-DROP NOT CALLED, THEN 
sWHILE THERE ARE MORE DEVICES: 


sCLEAR TRAP FLAG 

sSET VECTOR 4,PRIORTY 36 
MOV 
MOV 
MOV 
MOV 
TRAP 


ADD 
sSTART 3.5 MINUTE COUNTER 
sINCR TIME] FROM #1 TO #25 BY #1 


SET UP FOR FIRST 


@INTPRI, -(SP) 
@TRAP4 , -( SP) 
SP) 





a rn rH 


E9 


022502 012700 000004 MOV 04 ,RO 
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INITIALIZE SECTION 
3261 022260 503663: 
3262 022260 005267 161152 INC TIME1 
3263 022264 50365$: 
3264 022264 026727 161146 000025 CMP TIME1, 025 
3265 022272 003134 BGT 43 
3266 022274 012775 002340 002514 MOV @GSCPK , BTSDB(RS) ;AND GET UNITS STATUS 
3267 022302 DELAY 25 ;WAIT 
022302 012727 000025 MOV 025,(PC)- 
| 022306 000000 .WORD 0 
| 022310 016727 157602 MOV LSOLY,(PC)- 
| 022314 000000 .WORD 0 
022316 005367 177772 DEC -6(PC) 
022322 001375 BNE _-4 
022324 005367 177756 DEC 22(PC) 
022330 001367 BNE .-20 
| 3268 022332 CLRYEC 04 sCLEAR VECTOR AT 4 
022332 012700 000004 MOV 04,RO 
022336 104436 TRAP C$CVEC 
3269 022340 105767 161164 TSTB —s TRAPDA :IFB TRAPD4 NE #0 THEN 
3270 022344 001423 BEQ $ 
3271 022346 005265 003366 INC FTLCNT(RS) ;LET FTLCNTCRS) :* FTLCNTCRS) + 61 
3272 022352 PRINTF @NODEV,TSSR(RS) ;PRINT ERROR 
022352 016546 002524 MOV TSSR(RS), -(SP) 
022356 012746 005543 MOV @NODEV, -(SP) 
022362 012746 000002 MOV 02, -(SP) 
022 010600 MOV SP RO 
022370 104417 TRAP  - CSPNTF 
022372 062706 000006 ADD 6, 
3273 022376 016567 002604 175004 MOV DEVTBL(RS),DROPN ;SAVE @ OF UNIT TO BE DROPPED. 
3274 022404 010500 MOV R5,RO ;RO=LOGICAL DEVICE NUMBER 
3275 022406 006200 ASR RO 
3276 022410 poDU = RO ;DROP THE UNIT 
022410 104451 TRAP —_ C$D00U 
3277 ; EXEC BGNOU-ENDDU CODE iF IDU = 0 
3278 022412 DOCLN :00 CLEAN EABORT 
so79 Czel2 10saaa TRAP —- C$DCLN 
3280 022414 105067 161110 2s: CLRB  =—« TRAPD4 ;CLEAR TRAP FLAG 
3281 022420 SETVEC 04, @TRAP4, #INTPRI :SET VECTOR 4,.PRIORTY a6 
022420 012746 000340 MOV @INTPRI, -(SP) 
022424 012746 023730 MOV @TRAPA, -(SP) 
| 022430 012746 000004 MOV 04,-(SP) 
022434 012746 000003 MOV 03,-(SP) 
022440 104437 TRAP  C$SVEC 
022442 062706 000010 ADD 610, SP 
3282 022446 005775 002524 1ST @TSSR(RS) ;CHECK FOR ADDRESS 
3283 022452 DELAY 25 ;WAIT 
022452 012727 000025 MOV @25,(PC)+ 
022456 000000 .WORD 0 
022460 016727 157432 HOV LSDLY,(PC)+ 
| 022464 000000 “WORD 0 
022466 005367 177772 DEC -6(PC) 
022472 001375 BNE _-4 
| 022474 005367 177756 DEC “22(PC) 
022500 001367 BNE .-20 
| 3284 022502 CLRVEC 04 ;CLEAR VECTOR AT 4 





MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


104436 
105767 


3301 022626 
3302 022634 


308 
3309 022706 


161014 
003366 


002524 
005543 
000002 


000006 
002604 


165174 
002514 


000025 
157306 
177772 
177756 
002340 
000025 
157250 
177772 
177756 
000200 
000100 


160622 


174634 


002514 


002524 
002524 


4$: 
3$: 


50371$: 


MOV 
DELAY 


TRAPD4 
3 


$ 
FTLCNTCRS) 
@NODEV, TSSRC(RS) 


DEVTBLC(RS),DROPN 
RS,RO 


RO 
RO 


50367$ 


PC, SETOEF 
—_— 


@GSCPK , 8TSOBCRS) 
25 


@TS.SSR,8TSSRCRS) 
$0370$ 
@TS.OFL,@TSSR(RS) 
50371$% 
50364% 


PRINTF @OFLINM, TSNP 


SEQ 0109 
TRAP CsCvEC 
sIFB TRAPD4 NE #0 THEN 


sLET FTLCNTCRS) :* FTLCNTCRS) + #1 
sPRINT ERROR 


MOV TSSRCRS), -( SP) 
-(SP) 


MOV NODE V , - ( 
MOV @2,-(SP) 
MOV SP ,RO 

TRAP 


ADO 
sSAVE ® OF UNIT TO BE DROPPED. 
sRO=LOGICAL DEVICE NUMBER 


sDROP THE UNIT 
TRAP Cs000U 
3 EXEC BGNOU-ENDDU CODE IF IDu = 0 


300 CLEAN EABORT 
TRAP CSOCLN 
sSET UNIT NUMBER 


MOV €25,(PC)+ 
WORD O 


-WORD O 

DEC -6(PC) 
BNE .-4 

DEC -22(PC) 
BNE --20 


sAND GET UNITS STATUS 

sWAILT 
MOV €25,(PC)+ 
-WORD 0 
MOV LSDLY,CPC)>+ 
«WORD 0 
DEC -6(PC) 
BNE .* 
DEC -22¢PC) 
BNE --20 

;IF @TS.SSR SETIN @TSSRC(RS) THEN 


sIF @fS.OFL NOTSETIN @TSSRC(RS) THEN 


sEXIT COUNTER WHEN UNIT ON LINE 





SN Ne ee —---—~= a way 
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INITIALIZE SECTION 


w 
w 
~ 
~ 


sss 022732 50372$: 
1 
3314 022732 000412 BR 50373$ 
3315 022734 503708; 
3316 022734 PRINTF @NRDYM,DEVTBL(RS) 
022734 016546 002604 MOV DEVTBLCRS), -( SP) 
022740 012746 023700 MOV ONRDYM, -( SP) 
022744 012746 000002 MOV @2,-(SP) 
022750 01060C MOV SP ,RO 
022752 104417 TRAP CSPNTF 
ont 022754 062706 000006 ADD 6 ,SP 
1 
3318 022760 50373$: 
3319 022760 012767 000001 160452 MOV #1, TIME? sINCR TIME2 FROM 01 TO 013 BY 1 
3320 022766 000402 BR 50374$ 
3321 022770 50375$: 
3322 022770 005267 160444 INC TIME2 
3323 022774 50374$: 
3324 022774 026727 160440 0000135 CMP TIME? , 613 
3325 023002 003016 BGT 50376$ 
3326 023004 DELAY 100. sWAIT FOR UNIT °O BE SET ON-LINE 
023004 012727 000144 MOV #100. ,(PC)+ 
023010 000000 -WORD O 
023012 016727 157100 MOV LSOLY,(PC)> 
023016 000000 -WORD 0 
023020 005367 177772 DEC -6(PC) 
023024 001375 BNE - 
023026 005367 177756 DEC -22(PC) 
023032 001367 BNE --20 
3327 023034 BREAK sALLOW TERMINAL INTERRUPT 
023034 104422 TRAP CsBRK 
3328 023036 000754 BR 50375$ 
3329 023040 50376$: 
3330 025040 000167 177214 JMP 50366 $ 
3331 023044 50367$: 
3332 023044 50364$: 
3333 023044 CLRVEC 04 s;CLEAR VECTOR AT 4 
023044 012700 000004 MOV @4,RO 
023050 104436 TRAP CsCvEC 
3334 023052 026727 160360 000025 CMP TIME1, 025 sIF OFF LINE FOR 3.5 MINUTES 
3335 023060 003404 BLE 50377$ 
3336 023062 004767 167646 JSR PC ,MOVMSG sGET MESSAGE PACKET 
a3 023066 004767 170360 JSR PC,TCC1 sPRINT ERROR AND DROP OFF LINE UNIT 
3339 023072 50377$: 
3340 sREPEAT UNTIL ON LINE OR TIMED OUT. 
4 023072 004767 174052 JSR PC,NEXTU ;SET UP FOR NEXT UNIT. 
foes 023076 000167 177100 JMP 50362$ 
3345 023102 50363: 
3346 023102 50361: 
3347 023102 105767 160421 TSTB PWRFLG ;IFB PWRFLG EQ #0 THEN 
3348 023106 001026 BNE 50400$% 
3349 023110 MEMORY DATAWT sREQUEST MEMORY FROM SUPER FOR RD/WR BUFFERS. 
023110 104431 TRAP C$MEM 
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3350 
3351 
3352 
3353 
3354 


3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 


3368 


023112 010067 
023116 016767 
023124 062767 
023132 027727 
023140 002011 
ete 


0231 

023162 
023162 
623164 
023164 
023164 105067 


023170 012703 
023174 004767 
3200 


023312 
023312 
023312 104411 
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160270 


023210 
000001 


000004 


160264 
160256 
004000 


MOV 


504018: 
50400$: 


EXIT 


DATAWT ,DATARD 
@DATCNT ,DATARD 
SDATAWT , @DATCNT 


50401$ 
PRINTF @MEMOM 


DOCLN 


TRAP 
sDIAG MUST BE RE-LOADED IN A CPU WITH LARGER MEMO 


CHGFLG 
@ENDFLG,R3 
PC,CLRERR 
PWRFLG 


INIT 


SEQ 0111 


MOV RO,DATAWT 


sSET RD BFR ADDRESS 
sWHEN NOT ENOUGH FREE MEMO AVAILABLE 


3 
;LET R3: 


sWARN OPERATOR 
MOV @MEMOM, - (SP) 
MOV #1,-(SP) 
SP ,RO 


TRAP = CSPNTF 
ADD 04,SP 


C$OCLN 


sAND ABORT PASS 


CLR CHANGE CMD SEQ TBL FLAG. 
= ENOFLG 

;CLEAR ALL FLAGS. 

;CLEAR THE POWER FAIL FLAG. 


TRAP CSExIT 
-WORD 1L10012-. 


MEMOM: .ASCII /s#AFREE MEMO TOO SMALL FOR RD-WR BFRSSN/ 


-ASCIZ /#ARE-LOAD IN LARGER MEMOsN/ 


-EVE 


ENOI 
L10012: 


-SBTTL AUTO DROP SECTION 


3¢e 


N 
NIT 


TRAP CsINIT 





MISCELLANEOUS SECTIONS 
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3376 
3377 


3381 023314 
023314 


023526 
3410 023532 004767 


2 
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EE Sig SPT RE, 


002340 
167216 
C00200 
000100 
003366 
160022 
005456 
000002 


000006 
173566 


177777 


173750 


002514 
002524 
002524 


;SECTION EXECUTED AFTER THE INIT CODE WHEN “ADR” FLAG IS SET BY OPERATOR 
sSECTION CHEKS FOR A VALID INTERFACE LOCATION. OROPS UNIT IF NO RESPONSE 

sFROM INTERFACE 

= 


BGNAUTO 
L$AUTO:: 
JSR PC,FIRSTU sFIND FIRST UNIT 
50402$: ;WHILE DEVTBLCRS) NE END DO ; 
i. DEVTBLC(RS), @END 
CLRB TRAPD4 sLET TRAPD4 :B= 00 
SETVEC 04, @TRAP4, OINTPRI ;SET VECTOR 4 
MOV @INTPRI, -(SP) 
MOV @TRAP4 , -(SP) 
MOV 04,-(SP) 
MOV @3,-C(SP) 
TRAP C$SVEC 
#10,SP 
MOV @TSOBCRS),R2 sADDRESS TSOS INTERFACE 
CLRVEC 04 ;CLEAR VECTOR AT 4 
MOV #4,RO0 
TRAP CSCVEC 
TSTB TRAPD4 ;IFB TRAPD4 NE #0 iHEN 
BEQ 50404 $ 
INC FTLCNTCRS) sLET FTLCNTCRS) := FTLCNTCRS) + 01 
PRINTF @AUTODM, TSOBCRS) sPRINT ERROR 
MOV TSOBCRS), -CSP) 
MOV @AUTOOM, =(SP) 
MOV @2,- (SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD @6,SP 
MOV DEVTBL(RS),DOROPN SAVE @ OF UNIT TO BE DROPPED. 
a ~ ;RO=LOGICAL DEVICE NUMBER 
RO s;DROP THE UNIT: EXEC BGNDU-ENDDU CODE IF IDU = 0 
TRAP CsD00U 
BR 50405$ 
50404$:; 
MOV @GSCPK , ATSOBCRS) ;SEND GET STATUS COMMAND 
JSR PC,WSSR sWAIT 
2 44 Ty mites sIF @TS.SSR SETIN @TSSRCRS) THEN 
BIT @TS.OFL,@TSSRCRS) sIF @TS.OFL SETIN @TSSRCRS) THEN 
BEQ 50407$% 
INC FTLCNTCRS) ;LET FTLCNTCRS) :=* FTLCNTCRS) + #1 


PRINTF @OFLINM, TSNP 


MOV SP ,RO 
TRAP CSPNTF 
ADO 6, 


JSR PC,DROPUA 
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3432 


3430 
023620 
023626 

3431 


023570 
023574 


JI 
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50407$: 
BR 50410$ 
50406$: 
003366 INC FTLCNTCRS) sLET FTLCNTCRS) := FTLCNTC(RS) + #1 
PRINTF @NRDYM,DEVTBLC(RS) 
002604 MOV 
023700 MOV 
000002 MOV 
MOV 
TRAP 
000006 ADD 
173530 JSR PC,DROPUA 
50410$: 
50405$: 
173350 JSR PC,NEXTU 
BR 50402$ 
50403$: 
ENDAUTO 
L10013: 
TRAP 
101 102 AUTODM: .ASCII /#ABUS TRAP AT #s06sN/ 
i123 040 
122 101 
040 101 
040 
066 045 
101 111 -ASCIZ /s#AINTERFACE BAD OR NOT SET TO ABOVE ADsSN/ 
124 105 
106 101 
105 040 
101 104 
117 122 
116 117 
040 123 
124 040 
117 040 
102 117 
105 040 
104 045 
000 


101 125 WNRDYM: .ASCIZ /#AUNIT #D18A NOT RDYSN/ 


NE A ws 


SEQ 0113 


DEVTBLCRS), -(SF) 
@NRDYM, - (SP) 
@2,-(SP) 

SP ,RO 

CSPNTF 

96, SP 


CsAUTO 








KI 
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AUTO DROP SECTION 
3434 
3435 ; DEVICE BUS TRAP HANDLER 
3436 ’ OUTPUT: TRAPD4 BYTE 1: TRAPED AT 4 
3437 F 0: NO TRAP 
3438 
| 3439 023730 105267 157574 TRAP4:: INCB TRAPD4;LET TRAPD4 :B= TRAPD4 + #1 
3440 023734 000002 RTI 
3441 
| 3442 
H 3443 -SBTTL CLEANUP CODING SECTION 
3444 
3445 soe 
3446 ; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
3447 ; AT THE END OF EACH PASS. 
3448 geo 
3449 
3450 023736 
ont 023736 LSCLEAN: : 
3452 023736 004767 173140 JSR PC ,FIRSTU sFIND FIRST UNIT. 
3453 023742 50411$: ;WHILE DEVTBLCRS) NE END DO 
3454 023742 026527 002604 177777 CMP DEVTBLCRS), @END 
3455 023750 001410 BEQ 50412$ 
3456 023752 004767 166722 JSR PC,WSSR sWAIT FOR UNIT READY OR TIMEOUT, 
3457 023756 CLRVEC TSVCTCRS) ;RELEASE INTERRUPT VECTORS FOR ALL 
023756 016500 002534 MOV TSvcTCRS), RO 
023762 104436 TRAP CS$CVvEC 
te 023764 004767 173160 JSR PC,NEXTU 3sFIND NEXT UNIT. 
3460 023770 000764 BR 50411$ 
3461 023772 50412$: 
3462 
3463 023772 EXIT CLN 
023772 104432 TRAP CSEXxIT 
023774 000002 -WORD L10014-. 
3464 -EVEN 
3465 ' 
3466 023776 ENOCLN 
023776 L10014: 
a 023776 104412 TRAP C$CLE4N 
3468 -SBTTL OROP UNIT SECTION 


+e 
3 THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. THAT CODE SHALL BE EXECUTED WHEN DODU 
sMACRO IS CALLED WHILE IDU Fl 3 IS NOT SET BY OPERATOR 

gece 


BGNDU 
L$DU:: 


010005 RO,RS sRS = LOGICAL DEVICE NUMBER X 2. 
006305 — RS 
012765 177774 002604 ONINUSE , DEVTBLC(RS ) sSET NOT IN USE FLAG FOR THE DEVICE. 
CLRVEC TSVCT(RS) sRELEASE THE INTERRUPT VECTOR. 
016500 002534 MOV TSVCTCRS),RO 





CO F 


| MISCELLANEOUS SECTIONS MACRO M1i13 14-JUN-84 18:32 SEQ 0115 
, DROP UNIT SECTION 
024016 104436 TRAP CSCvEC 
3482 024020 PRINTF #DROPDM,DROPN sPRINT DROP DEVICE MESSAGE 
024020 016746 173364 MOV DROPN, -( SP) 
024024 012746 005065 MOV »-(SP) 
024030 012746 000002 MOV #2,-(SP) 
024034 010600 MOV P 
024036 104417 TRAP CSPNTF 
024040 062706 000006 ADD 06, 
3483 024044 EXIT DU 
024044 000167 WORD J$ IMP 
024046 000000 -WORD L10015-2-. 
3484 EVEN 
3485 
3486 024050 E 
024050 L10015: 
—_ 024050 104453 TRAP cso0u 
3488 -SBTTL ADD UNIT SECTION 
3489 
3490 see 
3491 af ; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
3492 ; TO BE ee TESTED FOR THE FIRST TIME, OR (8B) RESUMED IN TESTING. IF 
ote ; “EF.AUNIT” TS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 
5:2 
3495 
3496 024052 GNAU 
024052 L$AU:: 
3497 0214052 010005 MOV RO,RS 3RS = LOGICAL DEVICE NUMBER X 2. 
3498 024054 006305 ASL RS 
3499 024056 010065 002604 MOV RO,DEVTBLC(RS) ;STORE UNIT @ IN DEVICE TABLE. 
3500 024062 GPHARD RO,RO 3;GET HARDWARE P TABLE FROM SUPER. 
024062 104442 TRAP C$GPHRD 
3501 024064 011065 002514 MOV CRO), TSOBCRS) ;SAVE TSOB ADDRESS. 
3502 024070 012065 002524 MOV CRO}. TSSRCRS) sSAVE TSSR ADDRESS. 
3503 024074 062765 000002 002524 ADD 2, TSSRCRS) 
3504 024102 011065 002534 MOV (RO), TSVCTCRS) sSAVE INTERRUPT VECTOR ADDRESS. 
3505 024106 011065 003532 MOV CRO), TSUNTCRS) sSAVE NUMBER OF DRIVE 
3506 024112 011067 157416 MOV CRO), TSNP ;SAVE FOR PRINT OUT'S 
3507 024116 SETVEC TSVCTCRS), TSSINTCRS), @INTPRI 
024116 012746 000340 MOV @INTPRI, -(SP) 
024122 016546 002554 MOV TSSINTCRS),-CSP) 
024126 016546 002534 MOV TSVCTCRS).-CSP) 
024132 012746 000003 MOV 93,-(SP) 
024136 104437 TRAP yg 
024140 062706 000010 ADD 0,SP 
3508 3SET UP INTERUPT PROCESSING CONDITIONS. 
04 024144 005065 003472 CLR INTFLGCRS) ;CLEAR INTERRUPT FLAGS. 
3511 024150 EXIT AU 
024150 000167 -WORD J$JMP 
024152 000000 -WORD L10016-2-. 
3512 
| 3513 EVEN 


NDAU 





MISCELLANEOUS SECTIONS 
ADD UNIT SECTION 


3556 
3557 


M9 
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157333 
157326 


172706 
162672 


002544 
000012 
002564 
Ube. 
002574 

177477 
002564 
002604 
004162 
000003 


000010 


002574 


177777 


002564 
002574 


. TITLE HARDWARE TESTS 
-SBTTL TEST 1: BASIC FUNCTIONS. 


zee 
; TEST TO EXECUTE ALL TSOS FUNCTIONS. 


SEQ 0116 


BGNMOD 
BGNTST 
Tl:: 
CLRB RANDOM ;CLR THE RANDOM OPERATIONS FLAG. 
CLRB EXPBOT ;CLR EXPECT BOT FLAG. 
— BGNSUB ;SUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS. 
. TRAP = C$BSUB 
JSR PC,FIRSTU sFINO THE FIRST UNIT. 
= + ati sINIT DEVICE 
E 2,.NSSRM, STAERM sREPORT TSOS NOT READY 
TRAP CSERDF 
. WORD 
.WORD NSSRM 
. WORD STAERM 
11%: JSR PC ,MDOSET 3GO DO SETUP'S 
MOV @BF SEQO ,R2 sADR OF CMD SEQ 
JSR PC .BF ;SET UP CMD SEQ. 
JSR <eo sEXECUTE CMD SEQ ON ALL DEVICES. 
PC, ,FIRSTU 3sFIND THE FIRST UNIT 
50413%: ; WHILE DEVTBLCRS) NE @END DO ;WHILE THERE ARE MORE DEVICES: 
CMP DEVTBLCRS), SEND 
BEQ 50414% 
MOV MSGPKACRS) ,R2 ;GET MSG PACKET ADR, 
#12 ,R2 3;LET R2 := R2 + O12 3;GET XSTAT2 ADR, 


BIC 177700, TSSCL(RS) 
MOV (R2), TSSSWCRS) 
0177477, TSSSWCRS) 


STORE CODE LEVEL FROM DTR BYTE, 
sSTORE SWITCH SETTINGS 


BIC 
PRINTF #CODELM,DEVTBL(RS), TSSCL(RS) 


é 
PRINTF @SWSET,DEVTBL(RS), TSSSWCRS) 


MOV TSSCLCRS), - 
MOV DEVTBLCRS), - 


ADD co 
PRINT THE TSOS MICROCODE LEVEL. 


MOV TSSSWCRS), -( SP) 





TEST 1: 


TESTS 
BASIC 


MACRO 41113 14-JUN-84 16:32 
FUNCTIONS. 


104402 


012702 
004767 


002604 
004231 
000003 


000010 


172562 


025146 


000444 
163616 
157112 


025160 
000420 
163572 


025252 
000400 
163552 


025324 


10021: 


L10022: 


71.4: 


L10023: 


ENDSUB 


MOV 
JSR 


PC ,NEXTU 
50413% 


oer a Te 


BF SEQ2 ,R2 
PC ,.BFSEQ 
PC,EXALL 


BF SEQ3,R2 
PC ,BFSEQ 
PC,EXALL 


BF SEQ4 ,R2 
PC,BFSEQ 


SEQ 0117 
MOV DEVTBLC( RS), -(SP) 
MOV @SWSET , -( SP) 
MOV 03, -(SP) 
MOV . 


ADD 
sPRINT THE TSOS SWITCH SETTINGS. 
sFIND NEXT UNIT. 


TRAP CsESUB 
sSUBTEST 2 - REWIND. 

TRAP C$68SUB 
sADR OF CMD SEQ. 
SET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 
sCLEAR START FLAG 

TRAP CsESUB 
SUBTEST 3 - WRITE/VERIFY. 

TRAP C$B6SUB 
;ADR OF CMD SEQ. 
sSET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CsESUB 
s;SUBTEST 4 - WRITE TAPE MARK, ERASE. 

TRAP Cs$BSUB 
sADR OF CMD SEQ. 
;SET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CsESUB 
sSUBTEST 5 - SPACE FILES. 

TRAP C$BSUB 


sADR OF CMD SEQ. 
;SET UP CMD SEQ. 


TESTS MACRO M1113 14-JUN-84 16:52 


HARDWARE SEQ 0118 
TEST 1: BASIC FUNCTIONS. 


3593 024470 004767 :63532 JSR PC ,EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 

3594 024474 ENDSUB i 
024474 10024; | 
024474 104403 TRAP CsESUB 

3596 024476 BGNSUB sSUBTEST 6 - SPACE RECORDS. 

024476 71.6: 

— 024476 104402 TRAP Cs8SuB 

3598 024500 012702 025366 MOV BF SEQS ,R2 sAOR OF CMD SEQ. 

3599 024504 004767 000340 JSR BF SEQ sSET UP CMD SEQ. 

3600 024510 004767 163512 JSR PC ,EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 

3601 024514 ENDSUB 
024514 L10025: 

024514 104403 TRAP Csesus 

3603 024516 BGNSUB sSUBTEST 7 - WRITE RETRY. 

024516 T1.7: 
024516 104402 TRAP Cs6sus 

3605 024520 012702 MOV @BF SEQ6 ,R2 sADR OF CMD SEQ. 

3606 024524 004767 000320 JSR PC .BF SEQ sSET UP CMD SEQ. 

3607 024530 004767 163472 JSR PC ,EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 

3608 024534 ENDSUB 
024534 L10026: 

024534 104403 TRAP CsESuB 

3610 024536 BGNSUB sSUBTEST 8 - READ REV RETRY. 

024536 71.8 

neat 024536 104402 TRAP Cs6sus 

3612 024540 012702 025512 MOV BF SEQ7 ,R2 sADR OF CMD SEQ. 

3613 024544 004767 000300 JSR PC .BFSEQ sSET UP CMD SEQ. 

3614 024550 004767 163452 JSR PC ,EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 

3615 024554 ENDSUB 
024554 110027 

eses 024554 104403 TRAP CsESsus 

3617 024556 BGNSUB sSUBTEST 9 - READ FWD RETRY. 

024556 71.9 
—_ 024556 104402 TRAP Cs6SU8 
3619 024560 012702 025544 MOV @BF SEQS ,R2 sADR OF CMD SEQ. 

024 004767 000260 JSR PC .BFSEQ sSET UP CMD SEQ. 

3621 024570 004767 163432 JSR PC ,EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 

3622 024574 ENDSUB 
024574 L10030 
024574 104403 TRAP CsESsus 

3624 024576 BGNSUB sSUBTEST 10- CLEAN. 

024576 71.10: 
024576 104402 TRAP CsBSU8 
012702 025576 MOV BF SEQS,R2 sADR OF CMD SEQ. 
3627 024604 004767 000240 JSR PC .BFSEQ sSET UP CMD SEQ. 
3628 024610 004767 163412 JSR PC .EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 





HAROWARE 
TEST 1: 


TESTS 





MACRO M1113 


BASIC FUNCTIONS 


104403 


104432 
000574 


0000 
171114 


14 -JUN-84 18:32 


000001 156656 


156621 


156506 
155412 
156562 
155372 
155360 


156430 
155334 


155316 
155304 


156457 


L10031; 


TL.A1: 


L10032: 


504168: 


504178: 


T1.12: 


L10033: 


BGNSUB 
MOV @BF SE10,R2 
JSR PC .BF SEQ 
JSR PC ,EXALL 
MOVB #1, SWBFLG 
JSR PC ,EXALL 
CLRB SWBFLG 
ENDSUBS 
MO eg F R2 
ADO RO 
s WHILE a2 Ne "DATAWT 0O 
CMP R2,DATAWT 
BEQ 504178 
SWAB -(R2) 
50416$ 
T1SWB 
PC, VF 


SWBF 
ileal 


g uanagnanaiaiageded 9g 


. VFEX 
#11 ,CMDPKT+CP.CNT 
PC, VFEXC 
CLRB T1SWB 
EXIT TST 


SEQ 0119 | 
TRAP CS€SUB | 
sSUBTEST 11 - WIV SWAPPED DATA BYTES. | 
TRAP CsBSUB 
sAOR OF CMD SEQ. 
sSET UP CMD SEQ. 
sWRITE/VERIFY RECORDS 1 AND 2. 
sENABLE BYTE SWAPPING. 
sWRITE/VERIFY RECORDS 3 AND 4. 
sDISABLE BYTE SWAPPING. 
CsESUB 


TRAP 
sINIT WRITE BUFFER POINTER. 


sUNTIL 10 BYTES HAVE BEEN SWAPPED. 


sSWAP DATA BYTES IN WRITE BUFFER. 


sSET T1 SWAP BYTES FLAG FOR “CKDATA” SUBR 


sSUBTEST 12 - READ SWAPPED DATA BYTES. 
TRAP Cs$6SUB 
IS READ REV 


3CMD . 

s VERIFY Et LENGTH ee CRECORD 4). 
sCHANGE BYTE COUNT T 

sVERIFY EVEN LENGTH Sue CRECORD 3). 
sENABLE pd SWAPPING. 


i BYTE COUNT TO 
sVERIFY EVEti LENGTH SWAP (RECORD 3) 
YTE COUNT T 


3 9. 
sVERIFY OOD LENGTH SWAP (RECORD 4). 


TRAP CsESuB 
sCLEAR T1 SWAP BYTES FLAG 

TRAP CsExIT 

-WORD 1L10017-. 


TEST 1: 


TESTS 
BASIC 


3731 025176 


MACRO M1113 
FUNCTIONS. 


: 
: 3 
; OUTPUTS: 
3 REGISTERS: 
: CALLS: 
012701 003540 BFSEQ@:: MOV @CMDSEQ,R1 
50420%: ;WHILE (R2) NE END DO 
021227 177777 CMP CR2), @END 
001402 BEQ 50421$% 
012221 MOV CR2)+,CR1)+ 
000773 BR 504203 
504218: 
012711 177777 MOV @END,CR1) 
000207 RTS PC 
3 BASIC FUNCTION COMMAND SEQUENCE 
140004 BFSEQ@O: .WORD SCH 
000200 200 
000001 1 
000000 0 
100013 ORI 
000001 1 
000001 1 
000000 0 
140004 SCH 
000020 20 
000001 1 
000000 f) 
100017 GES 
000001 1 
000001 1 
000000 0 
140004 SCH 
000040 40 
000001 1 
000000 i?) 
177777 -WORD END 
102010 BFSEQ1: RWD 
000001 1 
000002 : 
177777 -WORD END 
104105 BFSEQ2: Vv 
004000 DATCNT 
000001 
000001 
104105 


14 - JUN -84 18:32 


er oi eee 


B10 


SEQ 0120 


SUBROUTINE TO MOVE A COMMAND SEQUENCE TO THE SEQUENCE TABLE. 
R2 = FWA OF COMMAND SEQUENCE. 


INPUTS: 


sINIT SEQ TABLE ADORESS. 
sWHILE THERE ARE MORE COMMANDS: 


sMOVE COMMANDS TO SEQ TABLE. 


sSTORE END OF SEQUENCE CODE. 


sRET 

sSET CHAR. 200. (1) 
sORIVE INIT. (2) 
3SET CHAR. 20 (3) 
3;GET STATUS. (4) 
sSET CHAR. 40. (5) 
sREWIND TWICE. (6) 


sWRITE/VERIFY PAT 1. (7) 


sWTV PAT 2. (8) 





| 
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TEST 1: BASIC FUNCTIONS 


3769 025310 
3770 025312 
3771 025314 
3772 025316 


3768 025354 


104105 
004000 
000001 
000000 
177777 


177777 


105410 
000002 
000001 
000000 
105010 
000002 
000001 
000000 
105410 
000001 
000002 
000000 
105010 


BFSEQ3: 


BFSEQ4 


WTM 


BLOwWKHZornygornyg go~rEgorm 
D n a & ZD 


7} 


sWTV PAT 3. 


;WTV PAT 4, 


sWTV PAT S. 


sWTV PAT 6. 


sWTV PAT O. 


;WRITE TAPE MARK, 


sWRITE 10 RECORDS. 


sERASE 10 TIMES. 


sWRITE TAPE MARK. 


3WT™M RETRY 


sSPACE 2 FILES REV. 


sSPACE 2 FILES FwoO. 


sSPACE 2 FILES REV. 


sSPACE 2 FILES Fwd. 


(9) 


(10) 


(11) 


(12) 


(13) 


(14) 


(15) 


(16) 


(17) 


(18) 


(19) 


(20) 


(21) 


(22) 





HARDWARE TESTS MACRO M1115 
TEST 1: BASIC FUNCTIONS. 


3789 025356 


3844 025526 
3845 025530 


000001 
000002 


000000 
177777 


14-JUN-84 18:32 


BFSEQS: 


BFSEQ6: 


BF SEQ7: 


F10 


norn~a or~aYNOrr FD monre 
edn wore eed & 


mMmonreuvoware 
S32 


Corr D 
Bors 


sREWIND. 


sSPACE 7 RECORDS FwOD. 


sSPACE 7 RECORDS REV. 


sSPACE 7 RECORDS FWD. 


sSPACE 7 RECORDS REV. 


sREWIND. 


;WRITE. 


sWRITE RETRY. 


s;WRITE TAPE MARK. 


sSPACE 1 FILE REV. 


sREAD REV. 


sREAD NEXT REV. 


SEQ 9122 


(23) 


(24) 


(25) 


(26) 


(27) 


(30) 


(31) 


(32) 





ee en a ee Cee ee —— 


HARDWARE TESTS MACRO M1113 14-JUN-84 18:32 SEQ 0123 
TEST 1: BASIC FUNCTIONS. 


3846 025532 125401 R sREAD NEXT FWD. (33) 
3847 025534 004000 DATCNT 
3848 025536 000001 
3849 025540 000001 
3850 025542 177777 WORD END 
3651 
3852 025544 104001 BFSEQB: R ;READ FWD. (34) 
3853 025546 004000 DATCNT 
3854 025550 000001 1 
3855 025552 000001 1 
3856 025554 105001 RPF ;READ PREVIOUS FwD. (35) 
3857 025556 004000 DATCNT 
3858 S60 000001 1 
3859 025562 000001 i 
3860 S64 125001 RPR sREAD PREVIOUS REV. (36) 
3861 004000 DATCNT 
3862 025570 000001 1 
3863 025572 000001 1 
pase 025574 177777 .WORD END 
3866 025576 101012 BFSEQ9: .WORD CLN ;CLEAN. (37) 
3867 025600 000001 1 
3868 000001 1 
3869 025604 000000 0 
3870 025606 102010 RWD ;REWIND (38) 
3871 025610 000001 1 
| 3872 025612 000001 1 
3873 025614 000000 0 
| ate 025616 177777 -WORD END ENO OF SEQUENCE. 
| 3876 025620 104105 BFSE10: WTV ;WRITE/VERIFY EVEN LENGTH. (39) 
3877 025622 000012 12 
3878 025624 000001 
3879 000000 re) 
3880 025630 104105 WTV ;WRITE/VERIFY ODD LENGTH. (40) 
3881 025632 000011 11 
3882 025634 000001 
3883 025636 000000 re) 
3884 025640 177777 .WORD END 
3885 .EVEN 
3886 
3887 025642 ENDTST 
025642 L10017: 
mene 025642 104401 TRAP CsETST 
3889 .SBTTL TEST 2: DATA RELIABILITY. 
3890 
3891 t+¢ 
seve 3 TEST TO CHECK THE DATA RELIABILITY OF THE TSOS. 
gj? 
3894 025644 BGNTST 
— 025644 T2:: 
3896 112767 000001 155643 MOVB #1, RANDOM sSET THE RANDOM OPERATIONS FLAG. 
3897 025652 105067 155636 CLRB EXPBOT sCLEAR EXPECT BOT FLAG. 
3898 025656 005067 155574 CLR s;CLEAR WRITE TAPE MARK FLAG 


WIMFLG 
3899 025662 004767 171214 JSR PC,FIRSTU sFIND THE FIRST UNIT. 





———— ———-~1 


H10 





HARDWARE TESTS MACRO M1113 14-JUN-84 18:32 SEQ 0124 
TEST 2: DATA RELIABILITY. 
3900 025666 004767 161200 JSR PC, SOF INIT sINIT DEVICE 
3901 025672 103404 BCS 11$ 
3902 025674 ERROF 2,NSSRM,STAERM sREPORT TSOS NOT READY 
025674 104455 TRAP CSEROF 
025676 000002 -WORD 2 
00 004536 . NSSRM 
— 025702 006120 -WORD STAERM 
| 3904 025704 004767 161556 11$: JSR PC ,MOSET GO DO SETUP’S 
3905 025710 012702 004000 MOV @DATCNT ,R2 sSET UP THE RECORD LENGTH MASK, 
3906 025714 005302 DEC R2 
| 3907 025716 010267 155506 MOV R2,LENMSK sALLOW MAXIMUM BUFFER. 
3908 025722 005167 155502 COM LENMSK 
3909 025726 004767 162230 JSR PC,SETCH sCMD 1 = SET CHARACTERISTIC. 
3910 025732 105767 155570 TSTB STAFLG ;IFB STAFLG NE 00 THEN sIF STARTING THEN: 
3911 025736 001417 BEQ 50424 $ 
3912 025740 004767 162242 JSR PC,SETRW sCMD2=REWIND 
tery 025744 105067 155556 CLRB STAFLG sLET STAFLG :B= 00 sCLR START FLAG. 
3915 025750 504228: 
3916 025750 012721 104105 MOV @UTV,CR1)+ 
3917 025754 012721 004000 MOV @DATCNT ,(CR1)+ 
3918 025760 012702 177740 MOV @RNOPSC ,R2 
3919 025764 005102 COM R2 
3920 025766 010221 MOV R2,(R1)+ 
eeas 025770 012721 000007 MOV ORANP ,CR1)+ 
3923 025774 50423$: BREAK ; DO A SUPVSR BREAK FIRST. 
see 025774 104422 TRAP CSBRK 
3925 025776 50424$: sFILL SEQ TBL WITH RANDOM CMDS. 
3926 025776 020127 003740 CMP R1, @SEQEND 
3927 026002 002012 BGE 50425% 
3928 026004 066767 155422 155422 ADO RANB ,RANS ;LET RANS := RANS + RANB 
3929 026012 016702 155416 MOV RANS ,R2 
3930 026016 042702 177741 BIC @177741,R2 
tet! 026022 004772 026160 JSR PC, @RANCMO(R2 ) sSET UP A RANDOM CMD + BRF. 
3933 026026 000763 BR 50424% 
3934 026030 50425: 
3935 026030 012711 177777 MOV @END,(R1) sSTORE END OF SEQUENCE CODE IN TABLE. 
pose 026034 004767 162166 JSR PC, EXALL 3GO EXECUTE ALL CMOS IN SEQUENCE TABLE. 
3938 026040 012701 003540 MOV @CMDSEQG,R1 sINIT CMD SEQ TBL POINTER, 
3939 026044 005702 TST Re sREPEAT UNTIL EOT IS REACHED 
3940 026046 001752 BEQ 50423% 
3941 026050 105267 155450 INCB ALLEOT sFLAG ALL UNITS 8 EOT 
3942 026054 000240 NOP 
3943 026056 000240 NOP 
3944 026060 000240 NOP 
3945 026062 004767 001546 JSR PC, TSWEOT ;WRITE ONE RECORD BEYOND EOT ON ALL UNITS 
3946 3SO THAT SHORTER READ STOP DISTANCE 
3947 sSHALL POSITION HEAD IN CLEAN IRG GAP 
3948 sREAD REV THAT EXTRA REC TO RE-POSITION THE TAPE 
3949 026066 004767 000126 JSR PC ,RANRO sSET UP READ REV/FWO CMOS, 
3950 026072 012767 177740 155444 MOV @RNOPSC , CMDSEQ+4 1 OF RECORDS FOR READ REV. 


3951 026100 005167 155440 COM CMDSEQ+4 








_ HARDWARE 
| TEST 2: DATA RELIABILITY 


TESTS MACRO M1113 14-JUN-84 18:32 


3967 026160 
3968 026162 
3969 026164 
3970 026166 
3971 026170 


016767 
012711 
004767 


tips 
777 


155442 


155144 


1%: 


SEQ 0125 
MOV CMDSEQ+4,CMDSEQ+14 3 OF RECORDS FOR READ FORWARD. 
MOV END ,(CR1) sSTORE END OF SEQUENSE CODE IN SEQ TABLE. 
JSR PC ,EXALL 3GO EXECUTE READ REV/FWD OF LAST N RECORDS. 
CLRB ALLEOT sCLEAR ALL UNITS @ EOT FLAG 
MOVB 41,RPTFLG sREQUEST PERFORMANCE REPORT DURING REWIND. 
MOV MOSEQ,R1 sINIT SEQ TBL POINTER, 
JSR PC, SETRW sSTORE REWIND IN SEQ TBL 
MOV END, (R1) sSTORE END IN SEQ TBL, 
JSR PC,EXALL sEXECUTE REWIND CMD ON ALL UNITS 
EXIT TST 
TRAP CSEXIT 
-WORD 1L10034-. 
ADDRESSES OF SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 
THE DATA RELIABILITY TEST. 
RANWV sWRITE 
RANWR ;WRITE. 
RANWR ;WRITE. 
RANWR sWRITE. 
RANWR ;WRITE. 
RANWR ;WRITE 
RANWR sWRITE 
RANWR sWRITE 
RANRD sREAD 
RANRD sREAD. 
RANRD sREAD. 
RANRD sREAD. 
RANRD sREAD. 
RANRD sREAD, 
RANROD sREAD. 
RANRD sREAD. 
SUBROUTINE TO SET UP READ COMMANDS IN SEQUENCE TABLE. 
INPUTS: 
OUTPUTS: 
REGISTERS: R2 
CALLS: 
TST WTMFLG sWAS LAST CMD A WRITE? 
BEQ § 3NO,GO AHEAD 


sYES PUT DOWN TAPE MARK 
sAND SPACE FILE REV 
THEN CLEAR THE FLAG 


BGE es 

MOV @ROR,CR1)+ sSTORE READ REV CMO. 

MOV @DATCNT ,,CR1)+ ;SET BRF TO MAX FOR READ RANDOM LENGTHS. 
ADD RANS ,R ;LET RANB := RANB + RANS 

MOV RANB ,R2 sLET R2 ;:= RANB CLR. BY @RNOP SC 

BIC @RNOPSC, 


SET RANDOM @ OF OPERATIONS. 
+ RANDOM PATTERN. 





J10 


HARDWARE TESTS MACRO M1113 14-JUN-84 18:32 SEQ 0126 | 
TEST 2: DATA RELIABILITY. | 

4007 026312 012721 104001 MOV @RDF ,CR1)>+ sSTORE READ FWD CMD. 
4008 026316 012721 004000 MOV ODATCNT, CR1)+ sSET BRF TO MAX TO READ RANDOM LENGTHS. | 
4009 026322 010221 MOV R2, (R1)> 3SET RANDOM @ OF OPERATIONS. 
4010 026324 012721 000007 MOV ORANP ,(R1)+ }RANDOM PATTERN. 
4011 026330 000207 2s: RTS PC 
4012 

| 4013 3 SUBROUTINE TO SET UP A WRITE COMMAND IN THE SEQUENCE TABLE, 

4014 Fy THEN A WRITE TAPE MARK AND SPACE FILE REVERSE. 
4015 : 

| 4016 : INPUTS: 

4017 3 OUTPUTS: 
4018 Fy REGISTERS: 
non 34 3 CALLS: 
4 
4021 026332 012721 104005 RANWR:: MOV OWRT ,CR1)+ ;STORE WRITE CMD. 
4022 026336 004767 000102 JSR PC,RANW sSTORE BRF, @ OF OPERATIONS, PATTERN. 
4023 026342 005767 155110 TST WIMFLG sLAST CMD A WRT? 
4024 026346 001002 BNE 1$ 3: YES,RETURN 
4025 026350 005267 155102 INC WIMFLG 3NO,SET THE FLAG 
4026 026354 000207 1$: RTS PC 
4027 
4028 
4029 3 SUBROUTINE TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE. 
4030 3 INPUTS: 
4031 3 OUTPUTS: 
4032 3 REGISTERS: 
rey F CALLS: 
4035 026356 012721 104105 RANWV:: MOV @WTV,CR1)+ ;STORE WRITE/VERIFY CMD. 
4036 026362 004767 000056 JSR PC,RANW sSTORE BRF, @ OF OPERATIONS, PATTERN. 
4037 026366 000207 RTS PC 
4038 
4039 
4040 : SUBROUTINE TO SET UP A WRITE TAPE MARK IN THE SEQUENCE TABLE. 
4041 F INPUTS: 
4042 3 OUTPUTS: 
4043 3 REGISTERS: 
4044 : CALLS: 
4045 
4046 026370 020127 003740 RAWTM:: CMP R1,@SEQEND 
4047 026374 002007 BGE 1% 
4048 026376 012721 100011 MOV OWTM,CR1)+ ;STORE WRITE TAPE MARK CMD. 
4049 026402 012721 000001 MOV #1,(R1)+ ;BRF 
4050 026406 012721 000001 MOV #1,(R1)+ 3@ OF OPERATIONS 
4051 026412 005721 TST CR1)-+ ;SKIP PATTERNS 
pee 026414 000207 1%: RTS PC 
4054 Fy SUBROUTINE TO SET UP A SPACE FILE REVERSE IN THE SEQUENCE TABLE. 
4055 3 INPUTS: 
4056 3 OUTPUTS: 
4057 3 REGISTERS: 
4058 8 CALLS: 
4059 
4060 026416 Soot? 003740 RASFR: : — > crete 


00200 
012721 MOV @SFR,CR1)+ sSTORE SPACE FILE REVERSE 
012721 MOV #1,(R1)+ sBRF 
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| HARDWARE TESTS MACRO M1113 14-JUN-84 18:32 SEQ 0127 
TEST 2: DATA RELIABILITY. 
4064 026434 012721 000001 MOV #1,(R1)+ 3% OF OPERATIONS 
4065 026440 005721 TST C(R1)+ ;SKIP PATTERNS 
4066 026442 000207 1$: RTS PC 
4088 
J 4 
4069 3 SUBROUTINE TO STORE BRF, @ OF OPERATIONS, PATTERN IN COMMAND 
| 4070 3 SEQUENCE TABLE FOR WRITE AND WRITE/VERIFY COMMANDS. 
4071 ; INPUTS: 
| 4072 ; OUTPUTS: 
4073 3 REGISTERS: R2 
a 3 CALLS: 
40 
4076 026444 012721 004000 RANW:: MOV @DATCNT,CR1)-+ 3SET BRF TO MAX FOR PATTERN GENERATION. 
4077 sRANDOM BRF WILL BE GENERATED FOR EACH RECORD. 
4078 026450 066767 154760 154754 ADD RANS , RANB iLET RANB := RANB + RANS 
4079 026456 016702 154750 MOV RANB ,R2 sLET R2 := RANB CLR. BY @RNOPSC 
4080 026462 042702 177740 BIC @RNOPSC ,R2 
4081 026466 010221 MOV R2,(R1)¢ :SET RANDOM @ OF OPERATIONS. 
4082 026470 012721 000007 MOV @RANP ,CR1)+ ; RANDOM PATTERN. 
4083 026474 000207 RTS PC sRETURN. 
4084 
4085 .EVEN 
4086 
4087 026476 ENOTST 
026476 L10034: 
aces 026476 104401 TRAP CSETST 
oon -SBTTL TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 
4091 3+? 
4092 ; TEST TO WRITE RECORDS FROM BOT TO EOT. 
4093 $-- 
4094 
4095 026500 BGNTST 
noes 026500 T3:: 
4097 026500 112767 000001 155007 MOVB #1,RANDOM ;SET THE RANDOM OPERATIONS FLAG. 
4098 026506 105067 155002 CLRB EXPBOT ;LET EXPBOT :B= #0 sCLEAR EXPECT BOT FLAG. 
4100 026512 004767 170364 JSR PC,FIRSTU sFIND THE FIRST UNIT. 
4101 026516 004767 160350 JSR PC,SOFINIT sINIT DEVICE 
4102 026522 103404 BCS 11$ 
4103 026524 ERROF 2,NSSRM,STAERM sREPORT TSOS NOT READY 
026524 104455 TRAP CSEROF 
026526 -WORD 2 
026530 004536 .WORD NSSRM 
asek 026532 006120 -WORD STAERM 
4105 026534 004767 160726 11%: JSR PC ,MOSET :GO DO SETUP'S 
41C6 026540 012702 004000 MOV @DATCNT ,R2 ;SET UP THE RECORD LENGTH MASK. 
4107 026544 005302 DEC Re 
4108 026546 010267 154656 MOV R2, LENMSK sALLOW MAXIMUM BUFFER. 
4109 026552 005167 154652 COM LENMSK 
4110 026556 004767 161400 JSR PC,SETCH 3CMD 1 = SET CHARACTERISTIC. 
4111 026562 004767 161420 JSR PC,SETRW 3CMD2=REWIND 
4112 026566 105067 154734 CLRB STAFLG ;LET STAFLG :B= #0 ;CLEAR START FLAG 


4113 026572 50426$: BREAK s DO A SUPVSR BREAK FIRST. 
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_ 026572 
4114 
4115 026574 
4116 026574 


104422 


104401 


112767 
112767 


004767 
004767 
103404 


104455 
000002 
004536 


003740 
177524 
177777 


161406 
003540 


154670 


000766 


154652 
161330 
177777 
161340 


000001 
000001 


170166 
160152 


154613 
154604 


HARDWARE TES 
TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 


50427$: 
CMP R1,@SEQEND 
BGE 50430$ 
JSR PC ,RANWR 
BR 50427$ 
50430$: 
MOV @END,CR1) 
JSR PC,EXALL 
MOV @CMDSEQG,R1 
TST R2 
BEQ 50426$ 
INCB ALLEOT 
NOP 
NOP 
NOP 
JSR PC, TSWEOT 
CLRB ALLEOT 
J »SETRW 
MOV @END,(CR1) 
JSR PC, EXALL 
EXIT TST 
.EVEN 
ENOTST 
L10035: 


-SBTTL TEST 4: 


SEQ 0128 


TRAP 
sWHILE THERE IS MORE ROOM IN SEQ TABLE: 


CsBRK 


sSTORE A WRITE CMD IN SEQUENCE TABLE. 


sSTORE END OF SEQUENCE CODE IN TABLE. 
sEXECUTE ALL CMOS IN SEQ TBL ON UNITS. 
sINIT SEQ TBL POINTER 
REPEAT UNTIL EOT IS REACHED 


s;SET ALL UNITS @ EOT FLAG 


sWRITE ONE a -x BEYOND EOT ON ALL UNITS 
my Mh 


TBL, 
EXECUTE REWIND CMD ON ALL UNITS 


TRAP CSExIT 
-WORD 1L10035-. 
TRAP CsETST 


READ COMPATABILITY/READ UTILITY. 


3+ 
; TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 


BGNTST 
T4:: 
MOVB #1,RANDOM 
MOVB #1,EXPBOT 
JSR PC ,FIRSTU 
JSR PC ,SOF INIT 
BCS 11% 
ERROF 2,NSSRM,STAERM 


sSET THE RANDOM OPERATIONS FLAG. 
sSET EXPECT BOT FLAG. 


sFIND THE FIRST UNIT. 
sINIT DEVICE 


sREPORT TSOS NOT READY 
TRAP CSEROF 
WORD 2 


“WORD NSSRM 
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TEST 4: READ COMPATABILITY/READ UTILITY. 
026730 006120 -WORD STAERM 
4162 
4163 026732 004767 160550 11$: JSR PC ,MOSET :GO DO SETUP’S 
4164 026736 004767 161220 JSR PC,SETCH sCMD 1 = SET CHARACTERISTIC. 
4165 026742 004767 161240 JSR PC,SETRW sCMD2*REWIND. 
4166 026746 105067 154554 CLRB STAFLG ;LET STAFLG :B= 40 sCLEAR START FLAG 
4167 026752 012721 104001 MOV OROF ,CR1)+ sCMD3 = READ FORWARD. 
4168 026756 012721 000 MOV @DATCNT, CR1)> +SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
4169 026762 012721 077777 MOV 077777, (Ri)+ sSET RECORD COUNT TO MAX FOR WHOLE TAPE. 
4170 026766 012721 7 MOV @RANP ,CR1)+ sPATTERN = R E 
4171 026772 012711 177777 MOV @END,CR1) ;STORE END OF SEQUENCE CODE IN TABLE. 
4172 026776 004767 161224 JSR PC,EXALL sEXECUTE ALL CMDS IN SEQ TBL ON ALL UNITS. 
4173 027002 105267 154516 INCB ALLEOT sFLAG TO ALLOW ALL UNITS AT EOT TO READ REV 
4174 027006 012701 003540 MOV @CMDSEQ,R1 sINIT CMD SEQ TBL POINTER. 
4175 027012 012721 104401 MOV @ROR ,CR1)+ sCMD1 = READ REVERSE. 
4176 027016 012721 004000 MOV @DATCNT,CR1)+ SSET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
4177 027022 012721 077777 MOV 77777, CR1)> sRECORD COUNT = MAX FOR WHOLE TAPE. 
4178 027026 012721 MOV ORANP ,CR1)+ sPATTERN = RANDOM. 
4179 027032 012711 177777 MOV @END,(R1) sSTORE END OF SEQUENCE CODE IN TABLE. 
4180 027026 004767 161164 JSR PC ,EXALL :GO EXECUTE READ REV. OF ENTIRE TAPE. 
eps 027042 105067 154456 CLRB ALLEOT ;CLEAR ALL UNITS @ EOT FLAG 
4183 027046 EXIT TST 
027046 104432 TRAP CSExIT 
027050 000002 -WORD L10036-. 
4184 
4185 EVEN 
4186 
4187 027052 ENOTST 
027052 L10036: 
ese 027052 104401 T2AP CSETST 
eg .SBTTL TEST 5S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
4191 see 
+P | ; TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
gee 
4194 
4195 027054 BGNTST 
on 027054 TS:: 
4197 027054 105067 154435 CLRB RANDOM sCLEAR RAMDOM MODE FLAG 
aiee 027060 112767 000001 154426 MOVB #1,EXPBOT ;SET EXPECT BOT FLAG. 
4 027 004767 170010 JSR PC,FIRSTU sFIND THE FIRST UNIT. 
4201 027072 004767 157774 JSR PC, SOF INIT sINIT DEVICE 
4202 027076 103404 8CS 11$ 
4203 027100 ERRDF 2,NSSRM,STAERM sREPORT TSOS NOT READY 
027100 104455 AP CSEROF 
027102 000002 . WORD 
027104 004536 .WORD NSSRM 
‘ 027106 006120 -WORD STAERM 
4205 027110 004767 160352 118: JSR PC ,MOSET :GO DO SETUP'S 
4206 027114 116767 153076 154377 MOVB PIRE , IRE sMOVE INHIBIT RFC ERROR REPORT FLAG. 
4207 027122 004767 161034 JSR PC,SETCH :CMD 1 = SET CHARACTERISTIC. 
4208 027126 016767 153066 154406 MOV CHAR , CMDSEQ+2 ;MOVE CHAR CODE FROM P TBL TO SEQ TBL. 





i a 


| 
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TEST 5S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
4209 027134 012702 002222 MOV @CMOD ,R2 sR2 POINTS TO CMD2 IN SOFT P TABLE 
4210 027140 004767 000446 JSR PC,PTCMOS sMOVE CMD 2 FROM P TBL TO SEQ TBL 
4211 027144 004767 000442 JSR PC ,PTCMOS sMOVE CMD 3 FROM P TBL TO SEQ TBL 
4212 027150 004767 000436 JSR PC,PTCMOS sMOVE CMD 4 FROM P TBL TO SEQ TBL 
4213 027154 004767 000432 JSR PC,.PTCMDS sMOVE CMD S FROM P TBL TO SEQ TBL 
4214 027160 004767 000426 JSR PC,.PTCMOS sMOVE CMD 6 FROM P TBL TO SEQ TBL 
4215 027164 004767 000422 JSR PC,.PTCMDS sMOVE CMD 7 FROM P TBL TO SEQ TBL. 
4216 027170 004767 000416 JSR PC ,PTCMOS E END CMD FROM P a Ye SEQ TBL. 
4217 027174 005067 154242 CLR JLOOP ;CLEAR CMD LOOP C 
4218 027200 105067 154322 CLRB STAFLG sCLEAR START FLAG 
4219 027204 012701 003540 MOV @CMDSEQ,R1 sINIT SEQUENCE TABLE POINT 
4220 027210 3$: s;WHILE (R1) NE SEND DO sWHILE THERE ARE CMDS tert” IN SEQUENCE TBLE: 
4221 027210 504315: 
4222 027210 021127 177777 CMP (R1), END 
4223 027214 001574 BEQ 50432$ 
4224 027216 022711 000040 CMP = @JMP.C,(R1) sIS THIS A JUMP CMD? 
4225 027222 001024 BNE 6% ;BR IF NOT. 
4226 027224 062701 ADD 2,R1 sLET R1 := R1 + 02 sPOINT TO BRF. 
4227 027230 012167 154210 MOV (Ri)+,JLOC sSAVE BRF (LOCATION). 
4228 0272354 167 154202 CMP ast tne sHAS LOOP COUNT BE SATISFIED? 
4229 027240 001003 BNE sIF NOT, JMP AGAIN. 
4230 027242 062701 000002 22, Ri sIF SO, ~ yn SEQ POUNTER 
4231 027246 000760 BR 3$ ;AND GO TO NEXT COMMAND. 
4232 027250 154166 1$: INC JLOOP S UPDATE THE LOOP COUNT. 
4233 027254 012701 003540 MOV @CMDSEQ,R1 sINIT CMD SEQ TABLE POINTER. 
4234 027260 7 154160 2s: DEC JLOC sDECR LOCATION COUNTER 
4235 027264 001751 BEQ 3% ;IF THIS IS THE RIGHT LOCATION TO UMP TO, GO SET 
4236 027266 062701 000010 ADD #10,R1 ;IF NOT, UPDATE SEQ POINTER TO NEXT CMD. 
aah 027272 000772 BR 2s 300 IT AGAIN. 
4239 027274 022711 000020 6$: CMP = @DLY.C,(R1) DELAY? 
4240 027300 001026 BNE 43 BR IF NOT. 
4241 027302 062701 ADD #4,R1 3R1 = LOCATION OF N COUNT. 
4242 027306 011167 154126 MOV (R1), TIME) s;SAVE N COUNT. 
4243 027312 7$: DELAY 1 ;GO TO SUPER-WAIT 1 MSEC. 
027312 012727 000001 MOV #1,(PC)+ 
027316 000000 - WORD 
027320 016727 152572 MOV LSOLY,(PC)+ 
027324 000000 -WORD O 
027326 005367 177772 DEC i ‘ons 
027332 001375 BNE 
027334 7 177756 DEC *22¢ PC) 
27340 001367 BNE .-20 
4244 027342 005367 154072 DEC TIME2 
4245 027346 001361 BNE 7% 
4246 027350 062701 000004 ADD 4,R1 ;sLET R1 := R1 + sPOINT TO NEXT CMD. 
4247 027354 000715 BR 3% ‘60 CHECK NEXT CMD. 
4248 027356 004767 161610 JSR PC,SETUP 3GO SETUP THE COMMAND BLOCK. 
4249 027362 33$ sWHILE NCNT LT NCNT1 DO ;WHILE THERE ARE RECORDS REMAINING: 
4250 027362 026767 154024 154024 CMP NCNT,NCNT1 
4251 027370 002103 BGE 504 
4252 027372 004767 161466 JSR PC,CMDAC s;STORE CMD ASCII IN ERROR MSG. 
4253 027376 004767 161122 JSR PC,EXSUB sISSUE CMD TO ALL,AWAIT INTS,CHECK STATUS. 
4254 027402 026727 154012 100017 CMP CMOWRD , ;IF CMD IS GET STATUS THEN: 
4255 027410 001002 BNE 50435$ 
4256 027412 004767 167774 JSR PC, PRXST sPRINT EXTENDED STATUS REGISTERS. 
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TEST S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 

4258 027416 50435$; 
4259 027416 004767 170056 JSR At CKHAE sCHECK HALT AFTER EACH CMD FLAG. 
4260 027422 012702 i R2 sSET ALL UNITS AT BOT/EOT. 
4261 027426 004767 167450 JSR ec: SFIRSTU sF IND FIRST UNIT 
4262 027432 504368: +WHILE DEVTBL(RS) NE @END DO ;WHILE THERE ARE MORE UNITS: 
4263 027432 026527 002604 177777 CMP DEVTBL( RS), @END 
4264 027440 001 BEQ 
4265 027442 032767 000400 153750 BIT @M00 .CO, CHOWRD sIF CMD IS REVERSE THEN: 
4266 027450 001406 BEO 504403 
4267 027452 032765 000002 003502 BIT @x0.BOT ,EOTFLG(RS) ;IF NOT AT BOT THEN: 
4268 027460 001001 SNE 504414 | 
4269 027462 cLR R2 sCLEAR EOT/BOT FLAG. 
4270 
4271 027464 504418 | 
4272 027464 000411 BR 50442% sELSE IF CMD IS NOT REVERSE: 
4273 027466 504408: 

4274 027466 032765 000001 003502 BIT @x0.EOT ,EOTFLG(RS) 

4275 027474 001404 BEQ 504435 

4276 027476 032767 000001 153714 BIT @CMD .CO, CMDWROD 

4277 027504 001001 Aue 50444% 

4278 027506 50443% 

4279 sIF NOT AT EOT OR NOT A MOTION CMD THEN 
= 027506 005002 CLR Re sLET R2 :* 00 sCLEAR EOT /BOT FLAG. 

4282 027510 50444$: 

4283 

4264 027510 50442% 
4285 027510 004767 167434 JSR PC,NEXTU sF IND NEXT UNIT 
4286 H 
4287 027514 000746 BR 504368 

| 42868 027516 50437% 
42869 027516 020227 000001 CMP R2, 01 sIF ALL UNIT ARE AT EOT/BOT THEN: 
4290 027522 001016 SNE 1) 
4291 027524 016767 1 153662 MOV NCNT ,NCNT1 sFORCE TERMINATION OF COMMAND. 

4292 027532 005267 153656 INC i 

4293 027536 105267 153762 Inca ALLEOT sFLAG ALL UNITS AT EOT/BOT TO ALLOW VERIFY OF D 
4294 02 026727 15 000002 CMP ‘ sWHEN WRITING IS CURRENT COMMAND 

4295 027550 001002 BNE $ 

| aans 027552 004767 000056 JSR PC, TSWEOT ;GO WRITE/READ REV ONE RECORD BEYOND EOT 
4296 027556 504465: 

4299 
4300 027556 000402 50447% 

4301 027560 504458: 

anes 027560 105067 153740 CLRB ALLEOT sWHEN NOT ALL SEOT, CLEAR FLAG 

| 

4304 027564 504475: 

| 4305 02 005267 153622 bet NONT sUPDATE RECORD COUNT. 

| 4508 027570 016767 153624 153626 MOV CMDWROD,.PCMDOWD ;SAVE PREVIOUS COMMAND WORD. 

4306 027576 000671 BR 504334 
4309 027600 504346: 
4310 027600 004767 166262 JSR PC,VFYDAT sIF LAST CMD WAS A WRITE VERIFY, THEN GO 
4311 ;VERIFY THE LAST N RECORDS OF DATA. 
4313 027604 000601 Be 504318 
4314 027606 50432$: 








HARDWARE TESTS 
TEST 5: EXECUTE 
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OPERATOR SELECTED COMMAND SEQUENCE . 


EXIT TST 
104432 TRAP CSExIT 
000140 -WORD 110037-. 


SUBROUTINE TO MOVE A COMMAND FROM THE SOFTWARE P TABLE T0 
THE COMMAND SEQUENCE TABLE 


3 
: . 
3 INPUTS: Re = POINTER TO SOFT "P” TABLE 
3 OUTPUTS: 
: REGISTERS: R3, 
3 CALLS: 
012203 PTCMDS: :MOV (R2)+,R3 3R3 = COMMAND TABLE INDEX. 
005303 DEC R3 
006303 ASL RS 
016321 003752 MOV CMDTBL(R3),(CR1)> sMOVE COMMAND WORD. 
012221 MOV CR2)+,CR1)- sMOVE @ OF BYTES. 
012221 MOV (R2)¢,C(R1)> sMOVE @ OF OPERATIONS. 
012221 MOV CR2)¢,CR1)> i MOVE PATTERN CODE. 
000207 RTS PC 
3 SUBROUTINE TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT 
3 TNPUTS: 
PF OUTPUTS: 
3 REGISTERS: 
F CALLS: CMDAC ,EXSUB , CKHAE 
000240 pores Se 
004767 JSR PC.EXSUB sWRITE ONE RECORD BEYOND EOT 
004767 167630 JSR PC, CKHAE 3S0 THAT READ SHORTER STOP DISTANCE 
sSHALL POSITION HEAD IN CLEAN IRG GAP 
012700 000002 MOV @2,R0 3SET UP COUNTER FOR EOT 
016767 153540 153542 1%: MOV CMDWROD , PCMDWD sLET :* CMDWRD sREPOSITION TAPE 
012767 104401 153530 MOV @ROR , CHOWURD sLET CMDWRD := @RDR sBEFORE EXTRA RECORD 
012767 000004 153530 MOV 04 ,.CADOLG sBY READING REVERSE 
016767 153516 152424 mov 


yA aay gt te sLET CMDPKT :* CMDWRD CLR.BY @BRF.C 


: 
if 
if 


016767 152412 153502 MOV »CMDSAV sLET — & Bs ool 3; THAT ——— TO ALLOW 
016767 153464 152404 MOV DATARD , CMDPKT+CP . ADL T COMMAND IN 
004767 161132 JSR PC, CMDAC sTABLE TO BE EXECUTED 
004767 1 JSR PC,EXSUB 
004767 167536 JSR PC, CKHAE 
300 DEC RO sFOUND EOT YET? 
001343 BNE 1% 3NO,KEEP GOING 
7 RTS PC sYES,RETURN 
-EVEN 
ENOTST 
L10037;: 
104401 TRAP CsETST 
ENDMOD 


- TITLE PARAMETER CODING 
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HARDWARE PARAMETER CODING SECTION 
4368 .SBTTL HARDWARE PARAMETER CODING SECTION 
4369 
4370 027752 BGNMOD 
4371 
4372 bee 
4373 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
4374 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
4375 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
4376 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
4377 1 MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
4378 ; WITH THE OPERATOR, 
4379 :-- 
4380 
4381 027752 BGNHRD 
027752 000042 
027754 LSHARD: : 
4382 
4383 027754 GPRMA TSSADR,0,0, 160010, 177564, YES 


4384 027764 GPRMD = TSSVCT.2,0,777,60,776, YES 
02 
4385 027776 GPRMD TSSUNT,4,0,1,0,1,NO 


0 
4386 030010 EXIT HRD 
030010 


4388 -NLIST BEX 

4389 030012 124 123 104 TSSADR: .ASCIZ /TSOB ADORESS/ 
4390 030027 126 105 103 TSSVCT: .ASCIZ /VECTOR/ 

4391 030036 123 105 114 TSSUNT: .ASCIZ /SELECT DRIVE 0-1/ 
4392 LIST BEX 


4393 -EVEN 

AXA 

4395 030060 ENOHRD 

6006 030060 L10040: 

4397 -SBTTL SOFTWARE PARAMETER CODING SECTION 

4398 

4399 see 

4400 s THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
4401 + THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES THE 
4402 s T EXECUTED AS MACHI RUCTIONS BUT ARE 
4403 s INTERPRETED Re THE SUPERVISOR AS DATA STRUCT 

4404 s MACROS ALLOW b B mentite TO ESTABLISH COMMUNICATIONS 
4405 3; WITH THE OPERATOR 


-WORD L10040-L $HARD/2 


- WORD 

WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


-EVEN 


SEQ 0133 


T$CODE 
TSSAOR 
TSLOLIM 
TSHILIM 


TSCODE 
TSSVCT 
777 
TSLOLIM 
TSHILIM 


TSCODE 
TSSUNT 


1 
TSLOLIM 
TSHILIM 


TSCODE 
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SOFTWARE PARAMETER CODING SECTION 


4406 _ 
4407 
4408 030060 BGNSF T 


4409 030062 GPRML =—s CLR_M,0,1, YES 


4410 030070 GPRML RRVM,0,400, YES 
030070 , 


4411 030076 GPRML = RCVERM, 2,400, YES 
030076 001130 T$CODE 
030100 031010 RCVERM 
030102 400 
4412 030104 GPRML = =HAEM,2,1, YES 
030104 001130 ° TSCODE 
030106 030734 HAEM 
030110 1 1 
4413 030112 GPRML Ss IRECM,6,400, YES 
030112 003150 ° T$CODE 
030114 031064 IRECM 
030116 000400 400 
4414 030120 XFERT NEXTSP 
030120 004024 ° TSCODE 
4415 030122 GPRML = BADTM,, 4,1, YES 
030122 002130 . T$CODE 
030124 030760 ° BADTM 
030126 000001 . 1 
4416 030130 NEXTSP: DINTM,6,1,YES 


“WORD 
“WORD 
WORD 
. 
“ WORD 
WORD 
“WORD 
“WORD 
WORD 
“WORD 
“WORD 
WORD 
WORD 
WORD 
WORD 
. WORD 
“WORD 
. WORD 
“WORD 
WORD 
WORD 
. 
“WORD 
WORD 
WORD 
WORD 
WORD 
“ WORD 
WORD 
WORD 
“WORD 
WORD 
“WORD 
WORD 


GPRML 
4417 030136 GPRML =IREM,12,1, YES 
GPRML 


030136 005130 T$CODE 
030140 031131 IREM 
030142 1 ° 1 
4418 030144 CHGM, 10,1, YES 
030144 004130 ° TSCODE 
030146 031105 CHGM 
030150 1 
4419 030152 XFERF ENDSP1 
030152 127044 ° T$CODE 
4420 030154 GPRMD CHARM,14,0,377,0,777, YES 
030154 . Tse 
030156 031162 ° CHARM 
030160 000377 . 377 
030162 TSLOLIM 
030164 000777 ° TSHILIM 
4421 030166 GPRMD CMD2M,16,0,37,1,33,YES 
030166 007052 » TSCODE 
030170 031207 CMD2M 
030172 000037 . 37 
030174 1 TSLOLIM 


00000 
030176 000033 . 


TSHILIM 
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SOFTWARE PARAMETER CODING SECTION 
4422 030200 GPRMD BPCRM,20,0,-1,1,DATCNT, YES 
030200 010052 WORD T$CODE 
030202 031215 -WORD BPCRM 
030204 177777 . WORD -1 
030206 000001 -WORD TSLOLIM 
030210 004000 «WORD TSHILIM 
030212 011052 «WORD TSCODE 
| 030214 031227 . WORD M 
030216 177777 «WORD -1 
030220 000001 «WORD TSLOLIM 
| 030222 077777 «WORD TSHILIM 
4424 030224 GPRMC PATTM,24,0,17,0,10, YES 
030224 012052 -WORD TSCODE 
030226 031247 -WORD PATTM 
030230 000017 -WORD 17 
030232 -WORD TSLOLIM 
030234 000010 «WORD TSHILIM 
4425 030236 GPRMD CMD3M,26,0,37,1,33, YES 
030236 013052 «WORD TSCODE 
030240 031356 -WORD CMOD3M 
030242 000037 «WORD 37 
030244 000001 -WORD TSLOLIM 
030246 000033 -WORD TSHILIM 
4426 030250 GPRMD BPCRM,30,0,-1,1,DATCNT, YES 
030250 01 -WORD TSCODE 
030252 031215 -WORD B8PCRM 
030254 177777 -WORD -1 
030256 000001 -WORD TSLOLIM 
030260 004000 -WORD TSHILIM 
4427 030262 GPRMD NUMBM,32,D,-1,1,77777, YES 
030262 015052 «WORD TSCODE 
030264 031227 -WORD NUMBM 
030266 177777 -WORD -1 
030270 -WORD TSLOLIM 
030272 077777 -WORD TSHILIM 
4428 030274 GPRMD PATTM,34,0,17,0,10, YES 
030274 O1 -WORD TSCODE 
030276 031247 «WORD PATTM 
030300 000017 -WORD 17 
030302 -WORD TSLOLIM 
030304 000010 -WORD TSHILIM 
4429 030306 GPRMD CMD4M,36,0,37,1,33, YES 
030306 017052 -WORD TSCODE 
030310 031364 -WORD CMD4M 
030312 000037 -WORD 37 
030314 000001 -WOPD TSLOLIM 
030316 000033 -WORD TSHILIM 
4430 030320 GPRMD BPCRM,40,0,-1,1,DATCNT, YES 
030320 «WORD TSCODE 
030322 031215 -WORD BPCRM 
030324 177777 -WORD -1 
030 000001 «WORD TSLOLIM 
030330 004000 -WORD TSHILIM 
4431 030332 GPRMD NUMBM,42,0,-1,1,77777,YES 
030332 021052 «WORD TSCODE 
030334 031227 -WORD NUMBM 
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030336 177777 . WORD -1 
030340 000001 -WORD TS$LOLIM 
030342 077777 -WORD TSHILIM 
030344 022052 -WORD TSCODE 
030346 031247 -WORD PATIM 
030350 000017 -WORD 17 
030352 000000 «WORD TS$LOLIM 
030354 000010 -WORD TSHILIM 
4433 030356 GPRMD CMDSM,46,0,37,1,33, YES 
030356 023052 «WORD TSCODE 
030360 031372 . WORD SM 
030362 000037 -WORD 37 
030364 1 -WORD TSLOLIM 
030366 000033 -WORD TSHILIM 
4434 030370 GPRMD BPCRM,50,0,-1,1,DATCNT, YES 
030370 0O -WORD TSCODE 
030372 031215 -WORD BPCRM 
030374 177777 . WORD -1 
030376 1 -WORD TSLOLIM 
030400 004000 -WORD TSHILIM 
4435 030402 GPRMD NUMBM,S2,0,-1,1,77777,YES 
030402 025052 «WORD TSCODE 
030404 031227 -WORD NUMBM 
030406 177777 «WORD -1 
030410 000001 -WORD TS$LOLIM 
030412 077777 -WORD TSHILIM 
4436 030414 GPRMD PATTM,54,0,17,0,10,YES 
030414 026052 -WORD TSCODE 
030416 031247 -WORD PATTM 
030420 000017 -WORD 17 
030422 000000 «WORD TSLOLIM 
030424 000010 -WORD TSHILIM 
4437 030426 XFER ENOSP2 
030426 002004 -WORD TSCODE 
4438 030430 ENDSP1: XFER ENDSP3 
930430 076004 -WORD TSCODE 
4439 030432 ENDSP2: GPRMD CMD6M,56,0,37,1,33, YES 
030432 027052 -WORD TSCODE 
030434 031400 -WORD CMD6M 
030436 000037 «WORD 37 
00C00 -WORD TSLOLIM 
030442 000033 -WORD TSHILIM 
4440 030444 GPRMD BPCRM,60,0,-1,1,D0ATCNT, YES 
030444 -WORD TSCODE 
030446 12 -WORD B6PCRM 
020450 177777 -WORD -1 
030452 000001 «WORD TSLOLIM 
030454 004000 -WORD TSHILIM 
4441 030456 GPRMD NUMBM,62,D,-1,1,77777,YES 
030456 S2 «WORD TSCODE 
030460 031227 -WORD NUMBM 
030462 177777 -WORD -1 
030464 000001 -WORD TSLOLIM 
030466 077777 -WORD TS$HILIM 
4442 030470 GPRMD PATTM,64,0,17,0,10,YES 
-WORD TSCODE 


| 
030470 032052 
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030472 031247 -WORD PATTM 
030474 000017 «WORD 17 | 
030476 000000 -WORD TSLOLIM 
030500 000010 -WORD  TSHILIM 
4443 030502 GPRMD CMD7M,66,0,37,1,33, YES 
030502 03 -WORD TSCODE 
030504 031406 -WORD CMD7M 
030506 000037 -WORD 37 
030510 1 -WORD TSLOLIM 
030512 000033 «WORD TSHILIM 
4444 030514 GPRMD BPCRM,70,0,-1,1,DATCNT, YES 
030514 034052 -WORD TSCODE 
030516 031215 -WORD BPCRM 
030520 177777 -WORD -1 
030522 1 -WORD TSLOLIM 
030524 004000 -WORD TSHILIM 
4445 030526 GPRMD NUMBM,72,0,-1,1,77777, YES 
030526 035052 -WORD TSCODE 
030530 031227 -WORD NUMBM 
030532 177777 -WORD -1 
030534 000001 -WORD TSLOLIM 
030536 077777 -WORD TSHILIM 
4446 030540 GPRMD PATTM,74,0,17,0.10, YES 
030540 036052 -WORD TSCODE 
030542 031247 -WORD PATTM 
030544 000017 -WORD 17 
030546 000000 -WORD TSLOLIM 
030550 000010 -WORD  TSHILIM 
4447 030552 GPRMD CMO8M,76,0,37,1,33, YES 
0305S2 037052 «WORD TSCODE 
030554 031414 -WORD CMDSM 
030556 000037 -WORD 37 
030560 000001 -WORD TSLOLIM 
030562 000033 -WORD TSHILIM 
4448 030564 GPRMD BPCRM,100,0,-1,1,DATCNT,YES 
030564 040052 -WORD TSCODE 
030566 031215 -WORD BPCRM 
030570 177777 -WORD -1 
030572 000001 -WORD  TSLOLIM 
030574 004000 -WORD TSHILIM 
4449 030576 GPRMD NUMBM,102,0,-1,1,77777, YES 
030576 041052 «WORD TSCODE 
030600 031227 -WORD NUMBM 
030602 177777 -WORD -1 
030604 000001 -WORD TSLOLIM 
030606 077777 «WORD TSHILIM 
4450 030610 GPRMD PATTM,104,0,17,0,10, YES 
030610 042052 -WORD TSCODE 
030612 031247 -WORD PATTM 
030614 000017 -WORD 17 
030616 000000 -WORD TSLOLIM 
030620 000010 -WORD  TSHILIM 
4451 030622 XFER ENOSP 
030622 022004 -WORD TSCODE 
4452 020624 ENOSP3: GPRML TSMD,106,1,YES 
030624 043130 -WORD TSCODE 
030626 031257 -WORD TSMD 
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030630 000001 
4453 030632 

030632 016024 
4454 030634 

030634 046150 

030636 031347 

030640 000001 
4455 030642 

030642 011024 
4456 030644 

030644 045130 

030646 031327 

030650 000001 
4457 030652 

030652 006024 
4458 030654 

030654 1 

030656 031310 

030660 
4459 030662 

030662 002004 
4460 030664 

030664 001004 
4461 030666 
4462 030666 

030666 
4463 
4464 
4465 
4466 030666 103 114 
4467 030705 122 105 

030734 110 101 
4469 030760 102 101 
4470 031010 120 122 
4471 031041 104 111 
4472 031064 111 116 
4473 031105 103 110 
4474 031131 111 116 
4475 031162 103 110 
4476 031207 103 115 
4477 031215 102 122 
4478 031227 043 040 
4479 031247 120 101 
4480 031257 104 105 
4481 031310 122 105 
4462 031327 127 122 
4483 031347 061 060 
aang 
4485 
4486 
4487 
4488 031356 103 115 
4489 031364 103 115 
4490 031372 103 115 
4491 031400 103 115 
4492 031406 103 115 


L10041: 


S Be 
ages 


SE 


5 
: 


n£D- 
>a 
aaeg 


MACRO M1113 14-JUN-84 18:32 


XFERT 


-ASCIZ 


T1141 


«WORD 1 
ENOSP 

-WORD TSCODE 
FAST,114,1, YES 

-WORD TSCODE 

-WORD FAST 

-WORD 1 
ENOSP4 

-WORD TSCODE 
WIBF,112,1, YES 

-WORD TSCODE 

-WORD WTBF 

-WORD 1 
ENDSP 

-WORD TSCODE 
RDBF ,110,1, YES 

-WORD TSCODE 

- WORD 

-WORD 1 
ENOSP 

-WORD TSCODE 
ENOSP 

-WORD TSCODE 

EVEN 


BEX 

/CLEAR COUNTERS/ 

/RESET RANDOM VARIABLES/ 

/HALT AFTER EACH CMD/ 

AD TAPE SPOT DETECTION/ 
OVER OR 


/ 
/INHIBIT RFC ERROR REPORT/ 
/CHARACTERISTICS CODE/ 
“CMD/2" 

/BRF COUNT/ 

aa ee 

/OEF AULT on he SETTINGS ?/ 
/READ BUFFERING/ 

/WRITE BUFFERING/ 

4 aa S/ 


Sai} 
SEQ 0138 = 


- PARAMETER CODING 


SOFTWARE PARAMETER CODING SECTI 


4493 
4494 


4505 
4506 
4507 


031414 


031422 


103 


032000 


000000 
000003 
172522 
000224 
000000 


000001 


115 


i i i i — ee 


. 
MACRO — 14-JUN-84 18:32 SEQ 0139 
104 CMD8M: .ASCIZ “CMD/8” 


-LIST BEX 
- EVEN 


{ PRRAAASREOEAEEEE SEEDERS EEEESEEESEEEERESEEEEEESEEESEESEEEEEEEEEEREEEERES 
j PRAORESHEEEEOSEESEEEEEEEEEEEEESEEESERESEEESEEESEEEEEEEEREDEDEREDREEEEES 
; PATCH ARE 

; AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7” HACK 

; DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 

; 


PATCH:: .BLKW 64. 


=. 237741 
LASTAD 
-EVEN 
-WORD O 
-WORD 0 
L$LAST:: 
E 
-SBTTL HARD CODED P-TBL 
3+ 
sDIAG IS PRE-PARAMETERIZED PER TBL 
geo 
BGNSETUP 1 
BGNPTAB 
-WORD 0O 
-WORD L10044-./2-1 
L10042: 
172522 
224 
Q 
ENOPTAB 
L10044; 
ENDSETUP 
.END 


i 


| 
| 


| PARAMETER CODING 
SYMBOL TABLE 
ACK.C = 100000 G 
ADR = 000020 G 
ALLEOT 003524 G 
ASSEMB= 000010 
ATTNM 004603 G 
AUDRPM 005114 G 
AUDRUN 005146 G 
AUTODM 02 
BADTM 030760 
BADTSW 002210 G 
BENBSW 0023524 G 
BF SEQ G 
BFSEQ@O 025074 
BFSEQ1 025146 
SE 025160 
BFSEQS 
BFSEQ@4 025324 
BFSEQ@S 025366 
BF SEQ6 
BFSEQ7 025512 
BFSEQB 025) 
BFSEQ@9 025576 
BFSE10 
BGNFLG= 003460 
BINC 016052 
BITO = 000001 G 
BITOO = 000001 G 
BITO1 = 000002 G 
BITO2 = 000004 G 
BITOS = 000010 G 
BITO4 = 000020 G 
BITOS = 000040 G 
BITO6 = 000100 G 
BITO7 = 000200 G 
BITOS = 000400 G 
BITO9 = 001000 G 
BIT1 = 000002 G 
BIT10 = 002000 G 
BIT11 = C04000 G 
BIT12 = 010000 G 
BIT13 = O02000C G 
BIT14 = 040000 G 
BIT15 = 100000 G 
BIT2 = 000004 G 
BITS = 000010 G 
BIT4 = 000020 G 
BITS = 000040 G 
BIT6 = 000100 G 
BIT7 = 000200 G 
BITS = 000400 G 
BIT9 = 001000 G 
BOE = 000400 G 
BORERS 015316 G 
BPCRM 


sge 
ve 
ee 
oau 
aq 
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002616 G 


~ 
OHHHHH GQ AHHOAGH 


HAHHHHHHHHHHAHHAHG HAD © 


faloiaiols) 


CSSVEC= 


K11 


hy ain 000006 G 


CS$TPRI= 


EXCRTN 
EXCUTE 


s 
ro 
AKAOHOARHHA 


000004 
010226 
010522 
012362 
012054 G 


G 
G$RADO= 0000 


uv) 
AAAADH 


ret 
aD AAAH 


AOD 


SEQ 0140 





| PARAMETER CODING 
SYMBOL TABLE 


| G$XFER= 000004 
| GSYES = 000010 
002206 


a 


HAE G 
HAEM 030734 
HALTM 004 G 
HELP = 
= 100000 G 
T 003356 G 
HSSW 002320 G 
IBE = 010000 G 
IdU = 000040 G 
IER == 020000 G 
IE.C = 000200 G 
INIT10 021324 
INITiS 021622 
INIT16 021642 
INTFLG 003472 G 
INTPRI= 000340 G 
INVRT 007724 G 
IRE 003521 G 
IREC 002213 G 
IRECM 031064 
IREM 031131 
ISR = 000100 G 
IXE = 004000 G 


ISSFT = 000041 
I$SRV = 000041 
I$SUB = 000041 
IsTST = 000041 
JLOC 003444 G 
JLOOP 003442 G 


LOT = 000010 

L$ACP 002110 G 
LSAPT 002036 G 
L$AU 024052 G 
L$AUT 002070 G 
L$AUTO 023314 G 
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002106 G 
023736 G 
32 


i 


& $3388 
SEE 


g : 
DOHHHOOHOOOHOOHOHHOHOOOOHOHOHHHHAHHHHAHHAHHAHHAHAHAUAHAAAAHHAHAAH 


i 


023312 


Lil 


- 

So 

w 
eneneeennan 


an aD 


So 

~ 

~ 

PY 
AOHOAHHAHHARHHAG 


S 
SETOEF 


~ 
AHGAHHAMGHHAHHGHAAMHAAAGR ANAag 


8 

ro 

So 
DHHHHHHHOAD © AOAOH 


8 
w 
~ 
& 
°o 
o 


SEQ 0141 
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_ SYMBOL TABLE 


~ 
g 
~ 
So 
OHOAHHOHOHOHaH 


°o 
= 
& 
g 
HOHHOOHD AHHHHAHOH 
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T 
TSHILI= 


023730 G 
004705 G 
002514 G 
177717 G 


T$LAST= 


TS$TES= 


010037 


WRT CHK 
WRTCHR 


003523 G 


1 
007270 G 


007436 G 


X3.0CK= 
X3.RNY= 
X4.HSS= 
x4 .RCE= 
ZROPAT 

$LSTIN= 
$LSTTA= 


OOHOOOOHH ABAHHAHAAOH 


AHAHAAHAHAAGAHHHARH 


i 


- ABS. 032016 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 26207 WORDS ( 103 PAGES) 
20614 WORDS ( 79 PAGES) 


:01 
GVTSEC ,CVTSEC/ -SP-SVC/WL, TSVIE .CVTSEC. SRC 





